sub foo { my $param = shift; if ($param eq "skip") { next; } } foreach my $var (1, 2, 3, "skip", 4) { foo($var); print $var; }