for (1..4) {
   my $x;
   print ++$x;
}

print "\n";

for (1..4) {
   goto SKIP if $_ == 2;
   my $y;
SKIP:
   print ++$y;
}

print "\n";

for (1..4) {
   my $z if $_ != 2;
   print ++$z;
}