Select Code to Download

#!c:\perl\bin\perl -w

...
    my $recordline = join ",", @{$array[$x]};
    print "$recordline\n";
}