perl -MO=Deparse -e 'sub a {}; my $r = \&a; sort $r (1,2)'                                                           
 sub a {

}
my $r = \&a;
sort $r 1, 2;