open IN,"< in.txt";while(){chomp;my @a=split/\s+/,$_;if(exists $hash{$a[0]}){$hash{$a[0]}.="\s$a[0]";}else{$hash{$a[0]}=$a[1];}}foreach my $key(%hash){print "$hash{$key}\t";}
