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

##</code><code>##

$VAR1 = '1000';