Select Code to Download

for $refarray (@regarray) {
    print "$regarray = ";
...
    push(@decarray, $reghex);
    print "." . $reghex;
}

@decarry = map hex($_), @regarray;