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