my @list = (1, 2, 3, 4, 5); my @result = grep $_ > 2, @list; print "@result";