sub new {
    my $class = shift;
    my @values = @_; # den ganzen rest einlesen
    my $self = bless({},$class);
    $self->{'key'} = \@values;
}

# ... somewhere else
use Data::Dumper qw/Dumper/;
my $ca = CA->new(1,2,3);
print Dumper $ca->{key};