when comparing numbers, I tend to avoid using == to go for something like:

sub equality{
    my ($a, $b, $eps) = @_;
    abs( $a-$b ) < $eps ? return 1: return 0;
}
[download]

where $eps is the desired precision

Cheers,