my @procs = qw/recept/;

unless (exists $procs{$SPROC}) {
  die "Unknown stored proc: $SPROC\n";
}