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

}
sort \(&a(1, 2));