Select Code to Download

sub hash_init2  {

...

    return \%hash;
}

sub deleteItem {
    my ($self, $del_id) = @_;
...
    }
    untie($hash);
}