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';