Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
...
foreach (sort keys %by_priority) {
  print $by_priority{$_}, "\n";
}

Select or download this
```
$ ./foo.pl
PR3
PR1
PR4
PR2
```