Select Code to Download

@array = ('a'..'z');
print $_,$/ for @array;

printf "%02d: %s\n", $_+1, $array[$_] for 0..$#array;

$ perl -MO=Deparse foo.pl
@array = ('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j',
...
    printf "%02d: %s\n", $_ + 1, $array[$_];
}
foo.pl syntax OK