Help for this page

Select Code to Download

Select or download this

my $line = 1;
while (<data>){
...
    # rest of the loop here
   $line++;
}