You wrote:

    $start=$result+.2;
    $x = substr($start,0,1);# integer
    $y = substr($start,2,2);# integer
[download]

It would be better to work in string mode all the time. If you had "1.8" you would get "2" instead of "1.10".

How about:

    ($x, $y) = split '\.' => $result;
    $y += 2;
[download]