Select Code to Download

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