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

}