F:\>perl
use strict;
use warnings;

my @numbers = 1 .. 10;
@numbers = grep {
   $_ > 4
} @numbers;
print "@numbers";
^D
5 6 7 8 9 10
F:\>