{my$i;push@entries ,{map{$fieldnames[ $i++%@fieldnames]=> $_}split/,/}while( <>);} [download]
In reply to Re: golfing hash slices by premchai21 in thread golfing hash slices by sacked