use Data::Dumper;
no strict;
%hash = ( a => 'x123' );
$hash{a}{b} = 'data';
print Dumper \%hash;