next if $fields[$i] =~ /----/;