#!/usr/bin/perl -w
use strict;

my (
    @arr1
   );

# GRT
# Sort by num, then letter

use locale;
print "locale\n";

@arr1 = map{ unpack 'x[NA1]A*', $_ }
        sort
        map{ pack 'NA1 A*', substr( $_, 1 ), substr( $_, 0, 1 ),  $_ }
        qw[ A473 B437 B659 C659 C123 D123 D222 E222 E001 A001 ];
print join("\n", @arr1)."\n\n";

no locale;
print "no locale\n";
@arr1 = map{ unpack 'x[NA1]A*', $_ }
        sort
        map{ pack 'NA1 A*', substr( $_, 1 ), substr( $_, 0, 1 ),  $_ }
        qw[ A473 B437 B659 C659 C123 D123 D222 E222 E001 A001 ];
print join("\n", @arr1)."\n";