1: #!/usr/local/bin/perl
    2: 
    3: $num=1;
    4: $width=40;
    5: 
    6: while (<>)
    7:         {
    8:         chop;
    9: 
   10:         $i=length($_);
   11: 
   12:         $n=$width-$i;
   13:         $i=int(($n+7)/8);
   14:         print $_.("\t" x $i).$num."\n";
   15:         $num++;
   16:         }
   17: