my $tolerance = 1.0e-16; # Change this value based on observation if ($tolerance*abs($range_min + $change_min) < abs($range_min - $change_min)) { print "$variable has different minimum value:\n"; print " Change list: $changes{$variable}{min} ($changes{$variable}{sheet})\n"; print " Range file : $range_file{$variable}{min} ($range_file{$variable}{sheet})\n"; my $difference = $range_min - $change_min print " Difference : $difference\n"; }