$x=$_ + $x * 8 for split(/\./, $y);