Select Code to Download

#!/usr/bin/perl

...
print 
$fields[12]++, "\n",
++$fields[12], "\n";

#!/usr/bin/perl
...
foreach my $field(@fields) {
    print " $counter $field\n";
}