@in = { @out = { qw[M N], qw[C B A], qw[M N Q P O], qw[C G F E D], qw[C B A], qw[C G F H], qw[U S], qw[C G F H I], qw[V T], qw[C G F H J], qw[C G F E D], qw[M K], qw[C G F H], qw[M N], qw[C G F H I], qw[M N Q P O], qw[C G F H J], qw[U S], qw[M K], qw[V T], }; }; #### @out = sort{ "@$a" cmp "@$b" } @in;