Hallo Tobias,

wenn es schnell gehen soll (d.h. das Script ansonsten nicht optimiert werden soll), kannst Du im Loop zunächst die leading spaces entfernen $Zeilen[$i]=~s/^\s+//;, dann wie gehabt splitten und dann print  out1 "$vals[0],$vals[1]\n";.

HTH
Grüße
payx