while (<>) {
  my ($make, $model) = split /,/, $_, 4;
  my $out = get_out_file($make, $model);
  print $out $line;
}