#!/usr/bin/perl

##</code><code>##

use warnings;
use strict;


##</code><code>##



open TAB, "test.txt";

##</code><code>##

open TAB, '<', 'test.txt' or die "Cannot open 'test.txt' $!";


##</code><code>##



    $diff = "$tab[0]" - "$seed";

##</code><code>##

    $diff = $tab[0] - $seed;

##</code><code>##




    if ($diff ge 0.1)

##</code><code>##

    if ($diff >= 0.1)


##</code><code>##



{print "@tab\n" && $seed eq $tab[0]}

##</code><code>##

{print "@tab\n"; $seed eq $tab[0]}