#sub to extract the needed Data and made math functions sub parseData{ print "Report: parsing $file\n"; #read file my $line; my @fullTable; for $line () { push(@fullTable,$line); } #finde Positionen von **** and **** durch erste Zeile print "zZz\n"; }