No shorter than tye's solution, but an alternative would be:

{my$i;push@entries
,{map{$fieldnames[
$i++%@fieldnames]=>
$_}split/,/}while(
<>);}
[download]