my (%Attr1, %Attr2,%Attr3); my @USED = (\%Attr1, \%Attr2, \%Attr3); sub DESTROY { my $self = shift; delete $_->{$self} foreach @USED; }