Select Code to Download

my @sorted = sort {$po{$a} <=> $po{$b}} keys %po;

my %process = (
    PR1 => sub { $_[0] = process1($_[0]) },
    PR2 => sub { $_[0] = process2($_[0]) },
...
for (sort {$po{$a} <=> $po{$b}} keys %po) {
    $process{$_}($input);
}