var %record, @records; @record{@colNames} = split(',', $line); push @records, \%record;