There is no $spoon, er.. $type :) Did you mean $table there?
Your grep either returns all values (if $type is true), or none at all (if $type is false). And die is evil outside the main program.
I'd also use a lookup hash to avoid having to iterate over the array over and over.

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

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$
[download]