my %subs = (
  PR1 = \&process1,
  PR2 = \&process2,
  PR3 = \&process3,
  PR4 = \&process4,
);