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