When you print (or otherwise stringize) a number, perl will slightly round it. Replace your print "$varn\n";'s with something like printf "%.20g\n", $varn; to see where floating point's inability to represent any decimal fraction is messing you up.