Help for this page
#!/usr/bin/perl -w use strict; ... foreach (sort keys %by_priority) { print $by_priority{$_}, "\n"; }
$ ./foo.pl PR3 PR1 PR4 PR2