@sorted = map  { $_->[0] }
          sort { $a->[1] cmp $b->[1] }
          map  { [ $_, uc( (/\d+\s*(\S+)/)[0]) ] } @data;