Khisanth came up with a nice cleaner way of specifying the sort:

my %seasons;
@seasons{qw(SM AU WI SP)} = (1..4);
sub by_hash {
  $seasons{$a} <=> $seasons{$b};
}
[download]