in reply to Re^4: replace text using hash
in thread replace text using hash

while (<DIC>) {
    my ( $key, $tgt ) = split(/\t/, $_);
    push @{ $dictionary{$key} }, $tgt;

}

[download]
Puts an array reference in each hash value, not the scalar value as you intend. You should only be doing this if you require a one-to-many mapping, which makes no sense in this context. What you actually want is to just assign the value: 
while (<DIC>) {
    my ( $key, $tgt ) = split(/\t/, $_);
    $dictionary{$key} = $tgt;

}

[download]

#11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.

In Section Seekers of Perl Wisdom