Select Code to Download

my %Vals;
for ( qw(foo bar) ) {
    my $method = shift;
...
        return $old;
    };
}

sub DESTROY {
    my $self = shift;
    delete $_->{$self} for values %Vals;
    return;
}