tie my @array,'Tie::File',$dateiname or die $!;
for(@array){
   chomp;
   s~$_~$hash{$_}~;
   $_ .= "\n";
}
untie @array;