in reply to SQL Questions
for (keys %$ref) { $data{$_} = $ref->{$_}; } [download]
@data{keys %$ref} = values %$ref;