Select Code to Download

my $EPSILON = 0.01;

...
    my ( $f1, $f2 ) = @_;
    return abs( $f1 - $f2 ) < $EPSILON;
}

while ( <> )
{
...
    next if @in_range == 1 && approx_equal( $in_range[0], 305.1 );
    print;
}

LINE:
while ( my $line = <> )
...
        warn "ill-formed line $.: no values in range";
    }
}