print "Letters are >>@letters<<\n";

##</code><code>##

foreach my $letter (@letters) {
    print "Got letter '$letter'\n";
};

##</code><code>##

for my $i (0..$#letters) {
    print "Flag $i is $letters[$i]\n";
};