sub short_sorts {
  my ($a,$b,$type) = @_;
  
  # Legend:
  # s = case sensitive
  # i = case insensitive
  # a = ascending
  # d = descending
  # r = reverse (right to left)
  # n = numbers
  # l = length of value
  
  my %sorts;
  $sorts{$_} = sub { $_[0] cmp $_[1] } for qw(sa as);
  $sorts{$_} = sub { $_[1] cmp $_[0] } for qw(sd ds);
  $sorts{$_} = sub { uc $_[0] cmp uc $_[1] } for qw(ia ai);
  $sorts{$_} = sub { uc $_[1] cmp uc $_[0] } for qw(id di);
  $sorts{$_} = sub { $_[0] <=> $_[1] } for qw(na an);
  $sorts{$_} = sub { $_[1] <=> $_[0] } for qw(nd dn);
  $sorts{$_} = sub { reverse($_[0]) cmp reverse($_[1]) } for qw(sar sra asr ars rsa ras);
  $sorts{$_} = sub { reverse($_[1]) cmp reverse($_[0]) } for qw(sdr srd dsr drs rsd rds);
  $sorts{$_} = sub { uc reverse($_[0]) cmp uc reverse($_[1]) } for qw(iar ira air ari ria rai);
  $sorts{$_} = sub { uc reverse($_[1]) cmp uc reverse($_[0]) } for qw(idr ird dir dri rid rdi);
  $sorts{$_} = sub { reverse $_[0] <=> reverse $_[1] } for qw(nar nra anr arn rna ran);
  $sorts{$_} = sub { reverse $_[1] <=> reverse $_[0] } for qw(ndr nrd dnr drn rnd rdn);
  $sorts{$_} = sub { length($_[0]) <=> length($_[1]) } for qw(la al);
  $sorts{$_} = sub { length($_[1]) <=> length($_[0]) } for qw(ld dl);
  
  if ($type) {
    croak "$type is not supported" if !exists $sorts{$type};
    return $sorts{$type}->($a,$b);
  }
  else {
    # A random sort was here, however, it was not acting as expected, so the die is being used.
    die "A sort type was not selected.";
  }
}