use strict;
package A;
{
    our %OPT= (
        fred => 1,
        barney => 2,
    );
}
sub getopts {
    our %OPT;
    # ...
}