my $sort = sub ($$) { $_[0] cmp $_[1] };
my @sorted = sort $sort @unsorted;