@{$entries[@entries]}{@fieldnames} = split ',' while(<>);