Select Code to Download

use Text::ParseWords;
@fields = ();
...
foreach $field (0..$#fields) {
    print $field + 1 . " $fields[$field]\n";
}

my $file = $ARGV[0] or die "Missing CSV file on the command line\n";
open($text, '<', $file) or die "Could not open '$file' $!\n";
...
foreach $field (0..$#fields) {
    print $field + 1 . " $fields[$field]\n";
}