use Data::Dumper;

my $blessedBe = bless {}, 'Wibble';

print Dumper $blessedBe;
print Dumper [$blessedBe];

##</code><code>##

$VAR1 = bless( {}, 'Wibble' );
$VAR1 = [
          bless( {}, 'Wibble' )
        ];