Select Code to Download

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

}

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

}