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