my $x=\"foo";
my @array=("$x",$x);

##</code><code>##

package Bitch;
use overload qw("" bitch);
my $bitch="Bitch0000";
sub bitch { $bitch++ };
package main;
my ($x,$y);
$y=bless \$x,'Bitch';
$x=bless \$y,'Bitch';

##</code><code>##

bless [],'HASH'