use Data::Dumper;
sub foo { return (); }
warn Dumper(sort {$a <=> $b} foo('1000'));

##</code><code>##

use Data::Dumper;
sub foo { return (); }
warn Dumper(sort(foo('1000')));