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