my %columns = map { state $n = 0; $_, $n++ } qw( creation_utc host_key name value path expires_utc is_secure is_httponly last_access_utc has_expires is_persistent priority encrypted_value samesite source_scheme source_port is_same_party decrypted_value );