my %thisrecord = map { $columns[$_] => $fields[$_] } ( 0 .. $#fields );