Select Code to Download

package TestSequence;
sub define { # set value anywhere in motley hash and
...
    $self = {};
    return bless $self;
}

my $sq = TestSequence -> new();
$sq -> define( 'BB', undef() );
...
}
# do something useful with $sq, then later...
$sq -> prune( 'BB' );