foreach my $pri(sort {$prior{$a} <=> $prior{$b}} keys %prior) print $pri, $prior{$pri}, "\n";