#!/usr/bin/perl -w
use strict;

my %input = (
  PR1     => 2,
  PR2     => 4,
  PR3     => 1,
  PR4     => 3,
);

my %by_priority = reverse %input;
foreach (sort keys %by_priority) {
  print $by_priority{$_}, "\n";
}