foreach my $priority (sort keys %hash) {
  print "Priority: $priority\n";
  foreach (keys %{$hash{$priority}}) {
     print "\t $_ => $hash{$priority}{$_}\n";
  } 
}