my $x = bless [], 'X';
share $x;