Select Code to Download

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

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