Help for this page
#!/usr/bin/perl ... print $fields[12]++, "\n", ++$fields[12], "\n";
#!/usr/bin/perl ... foreach my $field(@fields) { print " $counter $field\n"; }