I'm pretty sure that my code will do what you want -- order a small array by the ordering contained in a hash.

My misunderstanding was that I thought you meant you had many arrays in a single run, rather than one array per run.

However, the basic process of sorting an array according to a frequency hash remains the same:

my %freq = ...;

my @array = qw[ data items here ];

my @ordered = sort{ $freq{ $b } <=> $freq{ $a } } @array; ## for highe
+st frequency first.
[download]