I would never do it like you are trying, but i suspect one of the problems you face is that you never close the input file, so that once EOF is reached it stays eof forever

Yoou will want a close DATA; before foreach $one_car(@car_list) and another before the last }

Also DATA is not the best name to use for it has a magical meaning to perl as well