#!/usr/bin/perl --
use strict;
use warnings;
use Data::Dump qw/ dd /;
my %hash = ( 1,2 );
my $ref = \%hash;
dd( $ref );
$ref->{alec}='smart';
dd( $ref );
__END__
{ 1 => 2 }
{ 1 => 2, alec => "smart" }