> perl -MO=Deparse -e "sub foo($); sort foo(42);"
sort foo 42

##</code><code>##

> perl -MO=Deparse -e "sub foo($){44,33}; print for sort( foo(42), );"
sub foo ($) {
    44, 33;
}
;
print $_ foreach (sort foo(42));

> perl -wle "sub foo($){44,33}; print for sort( foo(42), );"
33
44