Select Code to Download

#!/usr/bin/perl

use warnings;
use strict;

open TAB, "test.txt";

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

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

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

    if ($diff ge 0.1)

    if ($diff >= 0.1)

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

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