Select Code to Download

{
  my (%handles, %did_mkdir);
...
    return $handles{$make}{$model};
  }
}

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