use Carp;
@a = (1,2);
foo(@a);
sub foo {
    @a = ();
    Carp::cluck();
}