print { $cars{$fields[4]} } $fields[0], ',', $fields[4], "\n" if /engineer/ && !/,-,/;
#     ^                   ^