if ($blah) { foreach (@goo) { print; } } else { print "no way man!\n"; }