my %s : shared = ( x => 'X', y => 'Y' ) ;
  my $o = bless \%s, "SHARE" ;