[...]
sub explode {
 my $self = shift;
 print Dumper [$self->get()];
}

package main;

my $object = new TestClass;
$object->set(qw (Hello World outside));
print $object->explode();
exit;