my %hash;
 
open (INPUT, "file") or die "Can't open file: $!";
my $records = <INPUT>;
chomp($records);
while (<INPUT>){
        my @arr = split (/\                   /, $_);
        my ($key, $value) = ($arr[1], $[0]);
        $srcid_hash{$key} = $value;
        print "$key\t$value\n";

}