# no compile problems here!

my @x = sort { return $a <=> $b; } (3, 2, 1);
print "sorted: (@x)\n";

#prints:  sorted (1, 2, 3)