Select Code to Download

my($good, $bad, $ugly)=part {
    /good/ ? 0 :
...
    /ugly/ ? 2 :
    (warn "$_ didn't categorize" and 3)
} @people;

sub part(&@) {
    my($code, @list)=@_;
...
    push @{$ret[&$code()]}, $_ for @list;
    return @ret;
}