sub fuelle_array (\@) {
        @{$_[0]} = qw(aaa bbb ccc ddd eee fff);
    }
    
    fuelle_array(my @array);

    print "$_\n" for @array;