sub foo {
        rand (2) < 1 ? 0 : bless [] => "foo"
    }

##</code><code>##

package Foo;

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