while(<$fileText>){ chomp; if($count++ == 0){ # I will eventually read the whole file... @firstLine1 = split(/\t/); last; } } #### chomp($_ = <$file_handle>); # read, chomp one line my @split_fields = split /\t/;