my %hash;
open (FILE,"abc.txt");
while (<FILE>)
{
   chomp;
   my ($key,$val) = split '\|';
   print $hash{$val};
}
[download]

This is a bit of code which i have written,i did not applied sort on it till now.But,its not working.