That was kind of a lacklustre answer, wasn't it?

Either way, you could be doing this:

@data{keys %$ref} = values %$ref;

No for loop, one line, no fuss.