while () { chomp; my @numbers=split (/\t/,$_); # problem }