in reply to Sorting a hash. What am I doing wrong?

You need: 
@uniq = sort {$a <=>  $b } keys %seen;

[download]
You already have key values, and you need to sort them, not the items they refer to in the hash.

In Section Seekers of Perl Wisdom