($finally,$brothers); @whatever = ('true','noble','right','pure','lovely','admirable'); foreach $such_thing (@whatever) { if ($anything =~ m/^(excellent|praiseworthy)$/i) { &think_about($such_thing); } }