my (@eachnum, $binary, $good, $decimal);