package msatminer;

sub zap
{
        @nreg = ();
}

# rest of package essentially the same as posted above...