Here's what I came up with.

#!/usr/bin/perl

use strict;
use warnings;

sub num 
{
   my $array = shift;
   my $func = shift;
   return grep {$_%2==0} @$array if ($func eq 'even');
   return grep {$_%2!=0} @$array if ($func eq 'odd');
}

my @a = 1..10;
my @b = (447..460, 2000..2012);
print num(\@a, 'even'), "\n";
print num(\@b, 'odd'), "\n";
[download]

I'm a beginner so please inform me if this is an inefficient/misguided way of accomplishing this.