my $field = $fields[0];
print "$field\n";