sub read_dict{
my $file=shift;    
my %dict;
open( FILE, "<:encoding(utf5)", $file );
while (<FILE>)
{
   chomp;
   my ($p1, $p2) = split /\t/;
   chomp ($p1, $p2);
   push( @{$dict{$p1}}, $p2 );
   
}
close FILE;
return %dict;
}