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