use Carp;
...
my %tables;
@tables{ qw/foo bar/ } = ();
sub ... {
    ...
    croak 'Disallowed table' unless exists $tables{$table);
    ...
}