in reply to Re^2: Delete all hash keys except for n of them
in thread Delete all hash keys except for n of them

Not only did I not see the code posted earlier, it was wrong too. Doh! 
%a = (%a)[0 .. $n*2-1];

[download]

In Section Seekers of Perl Wisdom