Statement Perl

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