#!/usr/bin/perl
open TAB, "test.txt";
<TAB>;
$seed = 1.04;
while (<TAB>){
	@tab = split ' ';
	$diff = "$tab[0]" - "$seed";
	if ($diff ge 0.1){print "@tab\n" && $seed eq $tab[0]} else {next};
}