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";

}
[download]

My code goes like that and I checked it it's working since I got to store the values of the file in a hash table. My next target is to loop within my hash and get each row value and will use that value in listing a file.