or download this
use strict;
use warnings;
...
for my $key (sort {$a<=>$b} keys %seen){
#don't know how ,where to get valueat [0],value at[1] from??wh
+o has the values? what is really (a and b) in, is it $_ or %seen? wha
+t am I really evaluating with,is it like this: $seen{$key}[0]=$a or $
+seen{$key}[1]=$b...completely lost...
}