sub two{
  $_[0]->{HASH} = {1 => 'one'};
}

##</code><code>##

sub two{
  $_[0]->{HASH}{1} = 'one';
}