use strict;
use warnings;

our $variable = 'name01';

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


print %$variable, "\n";