sub read_dict{
    local $| = 1;                                  ##!
    my $file = shift;    
    my %dict;
    open( my $fh, "<:encoding(utf5)", $file );
    my $c = 0;                                     ##!
    while( <FILE> ) {
       printf "\r%d\t", $c unless ++$c % 1000;     ##!
       chomp; ## no need to chomp twice
       my ($p1, $p2) = split /\t/;
       push( @{ $dict{ $p1 } }, $p2 );
    }
    close $fh;
    return \%dict; ## main space saving change; return a ref to the hash
}