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