my @foo = (1,2,3);
bless \@foo, 'Bar';
my $x = \@foo;
my $y = \@foo;