sub mysort (&@) {
    my $sub = ref $_[0] eq 'CODE' ? shift : sub {...};
    ...
}
sub subname {...};

 mysort {...}      'x', 'y', 'z';
 mysort \&subname, 'x', 'y', 'z';
&mysort(           'x', 'y', 'z');