while (){ my @t= split(',',); .... #### while (){ chomp; my @t= split(',',$_);