#!/usr/bin/perl
use strict;
use warnings;
use 5.012;
use List::Util qw/ shuffle /;

srand(1); # to get same random 'shuffle' from run to run
my @list = shuffle (qw/ Y2 A15 YABBA287 DABBA345 DOO777/, map {"E$_"} (1..20));

say "UNSORTED";
say "@list";

my @sorted = map { 
				   my $strlength = unpack("C", substr($_, -1));
				   substr $_, -1 * (1 + $strlength), -1;
				 }
			sort
			 map { pack "a*Na*C", /(\D+)(\d+)/, $_, length} @list;

say "SORTED";
say "@sorted";