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