@styx-cc: Anstatt der ersten for-Schleife würde ich eine while-Schleife nehmen. Du liest hier erst alles in eine Liste ein, obwohl Du diese nicht benötigst...

for (my $row=0; $row < $#table; $row++) { warum '< $#table'? Kann denn nicht im letzten Element der höchste Wert sein? Also entweder '<= $#table' oder '< scalar @table'.

Und dann ist es "perlisher" for my $row ( 0 .. $#table ){ zu schreiben...

Bei Ronnie brauche ich länger, um es durchzugehen ;-)