#!/usr/bin/perl
use strict;
use warnings;

our $variable = 'name01';

{
  no strict 'refs';
  our %$variable = ( valorC => 'value03', valorD => 'value04', );
  use strict 'refs';
}

print %$variable, "\n";