my $array = [];
function($array);
# alternativ
my @array;
function(\@array);


sub function {
    my ($array) = @_;
    push @$array, 23;
}