while () { chomp; my @field = quotewords("$option{delim}", 0, $_); my $column = 0; ...