package Foo;

sub new { bless [], $_[0] }
sub confuse { bless $_[0], 'ARRAY' }