Select Code to Download

foreach $1 (@array)

#!/usr/bin/perl
use warnings;
...
for $1 ('a' .. 'h') {
    print $1 if "A" =~ /(.)/;
}

abcdefgh