use strict;
use warnings;

use Data::Dumper;

# Turn stuff into blessed objects
my $foo = 'THIS IS A SCALAR';
my $bar = [qw(THIS IS AN ARRAY)];
my $baz = {'This' => 'Is', 'A' => 'Hash'};

# Bless them with a class that doesn't technically exist yet (and have Perl autovivify it for us)
my $scalarobject = bless \$foo, 'This::Is::A::Dummy::Object';
my $arrayobject = bless $bar, 'This::Is::A::Dummy::Object';
my $hashobject = bless $baz, 'This::Is::A::Dummy::Object';

{
    # Force the This::Is::A::Dummy::Object class to have a print method that stringifies its own object ;-)
    no strict 'refs';
    *{'This::Is::A::Dummy::Object::stringify'} = sub{ my ($self) = @_; print Dumper($self); };
}

$scalarobject->stringify();
$arrayobject->stringify();
$hashobject->stringify();