package Test;

sub new{
  my $class = shift;
  my $self = {};
  bless $self, $class;
}

sub one{
  my $self = shift;
  my %hash = (1 => 'unchanged');
  $self]->{HASH} = \%hash;
  return $self->{HASH};
}

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

1;