while (<DFFILE>) {
    chomp; # remove newline at the end.
    ($value, $key) = split(/\t/, $_);
    $lijst{$key} = $value;
}