use strict;
use warnings;

my %hash = ( foo => 'bar' );
my @index = qw( baz bong );
my @a2 = qw( a b c );

undef %hash, @index, @a2;
print %hash, @index, @a2;

__END__
# prints ->
baz bong a b c