sub foo {
   return $a cmp $b
}
my @sorted = sort foo @unsorted;