Select Code to Download

my @all = ('a', 'b', 'c', '1', '2', '3');
my ($numbers, $letters) = grep2 {/\d/} @all;

print "numbers: @$numbers\n";  # prints "1 2 3"
print "letters: @$letters\n";  # prints "a b c"

sub grep2 (&@)
...
print "letters: @$letters\n";  # prints "a b c"
print "all: @all\n";