my ( $a_ordinal, $a_name ) = @{ $a }[ 3, 4 ];
   my ( $b_ordinal, $b_name ) = @{ $b }[ 3, 4 ];