if ($type) {
    croak "$type is not supported" if !exists $sorts{$type};
    return $sorts{$type}->($a,$b);
  }
  else {
    die "A sort type was not selected.";
  }