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
}