my @foo_bar;

foreach my $foo (@fooz)
{
     if ($foo > 12)
     {
          push(@foo_bar, $foo - 1);
     }
}

##</code><code>##

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