my %codeRefs = map {
  "Package"->can($_) || sub { die "can't find $_" }
} qw(SubRoutine1 SubRoutine2 SubRoutine3);