foreach $1 (@array)

##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;

for $1 ('a' .. 'h') {
    print $1 if "A" =~ /(.)/;
}

##</code><code>##

abcdefgh