Regular Expression Perl

@a = (1 .. 10);
@b = grep {$_ > 5} @a;
print join(", ", @b);