Select Code to Download

#!/usr/bin/env perl

...
    substr($records_ref->[$item_index_for{$selection}], 0, 0) = '#';
    return $selection;
}

$ rm pm_year_make_model_temp_file

$ pm_year_make_model.pl
Available years:
...
Select model: Expedition
Temp file contents:
2001 Ford Expedition

$ pm_year_make_model.pl
Available years:
...
Temp file contents:
2001 Ford Expedition
1999 KIA Cavalier

$ rm pm_year_make_model_temp_file

$ pm_year_make_model.pl
Available years:
...
Select model: Sorento
Temp file contents:
1999 Chevrolet Sorento