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