#!/usr/bin/perl

for (@ary) { s/foo/bar/; }

foreach $elem (@elements) {
	$elem *= 2;
}

for (10,9,8,7,6,5,4,3,2,1,'BOOM') {
	print $_, "\n"; sleep(1);
}

for (1..15) { print "Merry Christmas\n"; }

foreach $item (split(/:[\\\n:]*/, $ENV{'TERMCAP'})) {
	print "Item: $item\n";
}
