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