my $main = bless{
	NAMES => [qw(Tine Horst Fritz)],
	NUMBERS => [1,2,3],
}, 'main';

# baue einen Rahmen...
eval{ 
	$main->ifnames()->ifnumbers()->wenden(); # Method Chaining
	print Dumper $main;
} || die $@;

sub wenden{
	my $self = shift;
	my $r    = shift;
	@{$self->{NAMES}} = reverse @{$self->{NAMES}};
	@{$self->{NUMBERS}} = reverse @{$self->{NUMBERS}};
}

sub ifnames{
	my $self = shift;
	die "Kein Attribut Namen!" unless exists $self->{NAMES};
	die "Kein Array Names!" if ref $self->{NAMES} ne 'ARRAY';
	die "Keine Namen in der Liste!" unless scalar @{$self->{NAMES}};
	$self; # geht return
}

sub ifnumbers{
	my $self = shift;
	die "Kein Attribut Numbers!" unless exists $self->{NUMBERS};
	die "Kein Array Numbers!" if ref $self->{NUMBERS} ne 'ARRAY';
	die "Keine Zahlen in der Liste!" unless scalar @{$self->{NUMBERS}};
	$self; # geht return
}