It might help if you focus on how you are breaking about your words instead of the sort( which you seem to understand). I suggest you take your list of "words" and put them into a hash to see what you are getting in your pattern match.

my %parsed_list_for;
for my $word (@list) {
   my $word =~ /(\w+)(\w+)(\d+)/;

   $parsed_list_for{ $word }{ 'alpha'  } = $1;

   my $word =~ /\[(\d+)/;
   $parsed_list_for{ $word }{ 'numeric'} = $1;
}

# use Data::Dumper to dump your hash and see your results
[download]

That may go a long way to help solve your sorting problem.