Select Code to Download

# Code1
@s = sort mycriteria @a;
...
  sin($aa) <=> sin($bb) ||
  $aa*$aa <=> $bb*$bb;
}

# Code2
@s = sort {($a =~ /(\d+)/)[0] <=> ($b =~ /(\d+)/)[0] || uc($a) cmp uc(
+$b)} @a;