Select Code to Download

# This is a fairly useless function which is basically
# just a copy of grep which enforces numeric context
...
}

my @even = filter_nums { not($_ % 2) } qw(1 2 3 4 potato);