Select Code to Download

my @a = (0 .. 25);
sub c{$_[0] % 3 == 0 }
...
my($l,$r)=S(@a);
print "@$l\n";
print "@$r\n";

my @a = (0 .. 25);
sub c{$_[0] % 3 == 0 }
...
my($l,$r)=S(\&c,\@a);
print "@$l\n";
print "@$r\n";