@list=map  {substr($_,1)}
      sort
      map  {pack("CA*",length($_),$_)}
      @words;
#or
@list=map  {substr($_,1)} sort
      map  {pack("CA*",length($_),$_)} @words;

##</code><code>##

sorted = my_list.map {|i| [ i.split(/\|/)[2,4],i ]}.
                 sort.
                 map { |i| i[-1] }

##</code><code>##

@list=map(substr($_,1),sort(map(pack("CA*",length($_),$_),@words)));

##</code><code>##

my @tmp = map { pack("CA*",length($_),$_) } @words;
my @tmp2= sort @tmp;
my @list= map { substr($_,1)} @tmp2;