Help for this page

Select Code to Download

Select or download this

my @foo_bar;

foreach my $foo (@fooz)
...
          push(@foo_bar, $foo - 1);
     }
}

Select or download this
my @foo_bar = map { $_ - 1 } grep { $_ > 12 } @fooz;