$fields = print $fields[0], "\n";