my @sorted =
   map { substr $_, 54 }
   sort
   map { do {
            no warnings qw{ uninitialized };
            pack qq{A${width}NA*}, m{(.*\D)?(\d+)$}, $_;
            }
       }
   @data;