#!/usr/bin/perl


open TAB, '<', 'test.txt' or die "Cannot open 'test.txt' $!";
<TAB>;
$seed = 1.04;
while (<TAB>){
    @tab = split ' ';
    $diff = $tab[0] - $seed;
    if ($diff >= 0.1) {print "@tab\n"; $seed eq $tab[0]} else {next};
}