sub is_approximately_an_integer {
    foreach my $x ( @zeros ) {
    $x = shift;
    my $eps = 0.0001;
    return abs( $x-int($x) ) < $eps;
    }
}