#Format:

#foreach VARIABLE (ARRAY)
#{BLOCK}


#!/usr/bin/perl
foreach $pal ('A', 'B', 'H', 'P') {
    print "Hi $pal!\n";
}