[Perl] Dopisanie zer do wierszy w pliku

[Mat.Monia]

Mam plik liczby.txt, w ktorych znajduja sie liczby. Wiersze sa roznaje dlugosci, dlatego tez chcialabym te krotsze wypelnic zerami.

Kod: Zaznacz cały

open (W, '>>liczby.txt'); while (<W>) {
  $line=$_;
  print $line ;
 $row=$row+1;

 foreach (@col){     #@col jest to wczesniej zdefiniowana tablica z ilosciami kolumn w pliku
    if ($_<$max){     
      $diff=$max-$_;
   $line=$line." 0 " x $diff ;
    }
 }

close(W);
print "ilos linii $row \n";

 }
close(W);

Czy moglibyscie mi wskazac gdzie sa mje bledy w rozumowaniu?