Help for this page

Select Code to Download

Select or download this

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