Perl Array in Instanz füllen und auslesen

[Slaughter]

Hallo,

ich möchte eine Klasse programmieren, die pro Instanz ein "Child"-Array enthält. Dieses Array möchte ich möglichst geschickt füllen($action="add") und auslesen($action="get"). Leider sind meine Kenntnisse, der OOP unter Perl momentan nicht so besonders. Den folgenden Code habe ich aktuell geschrieben, aber irgendwie kann ich nicht auf das Array in der Instanz $pp1 zugreifen. Was mache ich falsch?

  
{  
  package Parkplatz;  
  
  sub new  
  {  
    my $class=shift;  
    my $self={};  
    bless $self,$class;  
    $self->Childs("new");  
  }  
  
  sub Childs  
  {  
    my $self=shift;  
    my $action=shift;  
    my $child=shift;  
  
    my @childs;  
    if ( $action eq "new" )  
    {  
      @childs=();  
    }  
    elsif( $action eq "add" )  
    {  
      push(@childs,$child);  
    }  
    elsif( $action eq "get" )  
    {  
      @childs;  
    }  
  }  
}  
  
  my $pp1=Parkplatz->new();  
  $pp1->Childs("add","test1");  
  my @test=$pp1->Childs("get");  
  print test[0];  

Danke im Voraus

Slaughter