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

}