Man kann hier auch map/grep sehr gut in Kombination nutzen.

my @numbers = ( 1 .. 5);
my @squares = map { $_ ** 2 } grep { $_ > 4 } @numbers;

wäre auch die Version die ich bevorzugen würde.