my @sorted = do {
	my @key = map { lc substr $_->[ 4 ], 0, 3 } @a_of_a;
	my @idx = sort { $key[ $a ] cmp $key[ $b ] } 0 .. $#key;
	@a_of_a[ @idx ];
};