package Tie::Poison;
sub TIESCALAR {
...
}

sub TIEARRAY {
...
}

sub FETCH {
    my $var = tied $_[0];
    die "Prohibited variable '$$var' used";
}

package unusual_variable_names;
our @unusual = qw(
    @@
    @$
    ...    
);

sub unimport {
    for my $name (@unusual) {
        no strict 'refs';
        tie @{ $name }, 'Tie::Poison', $name;
    };
};

...

package main;
no unusual_variable_names;