my @foo_bar;

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