do
{
  $line = <FILE>;
  chomp($line);
  $zeile = $zeile+1;
  $byte = 0;
  for(my $z = 1; $z <= $Number[$zeile]; $z++)
  {
    printf DATEI ("%.4f\n", unpack("I", substr($line,$byte,4)) *$MultFact[$zeile]);
    $byte = $byte + 4;
  }
} until $zeile == $Anzahl || eof;