Select Code to Download

sub CLEAR {
    my $self = shift;
...
    }
    $self = [ { } ];
}

sub CLEAR {
  my $self = shift;
  @$self = ( {} );
}

sub CLEAR {
  $_[0] = [ {} ];
}

use Carp;

...
push_hash %stash;
# ...