#!/usr/bin/perl

use strict;
use warnings;

package TestClass;
use Data::Dumper;

sub new {
  my $class = shift;
  $class = ref($class) || $class;
  my $self = [];
  bless($self, $class);
  return $self;
}

sub get {
  my $self = shift;
  return @$self;
}

sub set {
  my $self = shift;
  @$self = @_;
}

sub explode {
  my $self = shift;
  Dumper [$self->get()]; # print kommt an anderer Stelle. Danke an Renee!
}

package main;

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