sub boo ($$) {
  my ($a,$b) = @_;
  $a <=> $b
}