$data->{'keys&values'} = do{ $_={}; @{$_}{ @keys } = @values; $_ };