use anal::retentive;

##</code><code>##

my %foo = (1,2,3,4);
bless %boo,'bar';
__END__
Can't bless non-reference value at - line 2.