Select Code to Download

@arr = map{ $_->[0] }
       sort { $a->[1] <=> $b->[1] || $a->[2] cmp $b->[2] }
       map{ [ $_, substr( $_, 1 ), substr( $_, 0, 1 ) ] }
       qw[ A473 B437 B659 C659 C123 D123 D222 E222 E001 A001 ];