do
{
$line = <FILE>;
$zeile = $zeile+1;
print unpack("I", substr($line,0,3)) *$MultFact[$zeile], "\n";
print unpack("I", substr($line,4,7)) *$MultFact[$zeile], "\n";
print unpack("I", substr($line,8,11)) *$MultFact[$zeile], "\n";
............
}until $zeile == 12 || eof;