Select Code to Download

my @myArray = (1..100);

...
foreach my $record (@myMainArray) {
   print(join(', ', @$record), "\n");
}