It's not just the Switch module that breaks this. Other modules seem to have the same effect. Can someone else run this code and confirm if they have the same problem?

use DBD::mysql ;

$perldata = bless { hello => 'world' }, 'superman' ;
# $perldata = { hello => 'world' } ;

sub test {
        my $o = shift ;
        warn $o ;
        my $m = bless { perldata => $o }, 'TQIS::test' ;
        return $m ;
        }

sub TQIS::test::DESTROY {
        my $self = shift ;
        warn $self->{perldata} ;
        }

$a = test( $perldata ) ;
$b = test( $perldata ) ;
$c = test( $perldata ) ;
[download]