print FILEHANDLE LIST

##</code><code>##

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

##</code><code>##

if (($fields[1] eq '1'  ||
     $fields[1] eq '0') &&
     /$pattern/)
{
    push @strings, $_;

    my $number = $fields[0];
    my $model  = $fields[4];

    print { $cars{$model} } $number, ',', $model, "\n"
        if /engineer/ && !/,-,/;
}