Select Code to Download

use strict;
use warnings;
...
0.0036962    0.4074616
0.0037064    0.4124646
[rest of input data omitted for brevity]

0.0036759    0.4018006
0.0036962    0.4074616
...
0.0041850    0.9288903
0.0041850    0.9357977
0.0041952    0.9453537

next if $x <= $previous_x;