my $foo = bless{}, 'foo';
my $bar = bless{}, 'bar';

toggle($foo);
toggle($bar);

sub toggle{
    my $r = shift;
    print ref $r;
}