for (keys %$ref) {
  $data{$_} = $ref->{$_};
}