Select Code to Download

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

package Bitch;
use overload qw("" bitch);
...
my ($x,$y);
$y=bless \$x,'Bitch';
$x=bless \$y,'Bitch';

bless [],'HASH'