Select Code to Download

#!perl

...
        print OUTFILE "$record_count\t$first\t", $i/2+1, "\t$data[$i] 
+",  $data[$i+1], "\n";
    }
}

#!perl -lwn

...
for (my $i = 0; $i < @data; $i+=2) {
    print join "\t", $., $first, $i/2+1, $data[$i], $data[$i+1];
}