use Storable qw(freeze thaw);
# example of data structure
my $r = {
	ARRAY => [localtime],
	HASH  => \%ENV,
};

# hier die Möglichkeiten zum Speichern in einer Datei
# Herzstück ist freeze() und thaw()
# mit IO::File dann weitermachen....
my $bin = freeze $r; # Serialize
my $rep = thaw $bin; # Deserialize
# test it
#print dump $rep;

# Entwicklung in Richtung Klasse
# Zum testen wird das Objekt hier zu einer Instanz der main-Class gemacht
bless $r, __PACKAGE__; # main-Class

# damit kann nun eine Methode aufgerufen werden
$r->printarray;

sub printarray{
	my $self = shift; # extrahiere Instanz
	foreach my $e( @{$self->{ARRAY}} ){
		print "$e\n",
	}
	return $self->{ARRAY}; # falls wir das Array draußen brauchen
}