Select Code to Download

#!/usr/bin/perl

...
for( my $i = 0; $i <= $#array; $i++ ) {
  print $i, " ", $array[$i], "\n";
}