my @items = (1, 2, 3, 4, 5);
foreach my $item (@items) {
     print "Got item $item!\n";
}

##</code><code>##

if ($item =~ /^(foo|bar|baz)/) {
     # do several things
}