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/ && !/,-,/;
}