in reply to reusable hash value sort
use strict; # never forget ;-) foreach my $key (sort values %hash) { .... }
-- Mike
-- just,my${.02}