#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my @array = (1..3);
test(@array);

print Dumper \@array;

test_ref(\@array);

print Dumper \@array;

sub test {
    my (@values) = @_;  # erzeugt kopie von @array,
                        # also doppelt im Speicher

    $values[1] = 9;

    print Dumper \@array;

    $_[2] = 5;          # Mit $_[...] greift man auf
                        # das Original-Array zu

    print Dumper \@array;
}

sub test_ref {
    my ($array_ref) = @_; # kopie der referenz, die Werte im
                          # Array gibt's aber nur einmal

    $array_ref->[2] = 6;  # verändert Wert in @array

    print Dumper \@array;
}

$VAR1 = [
          1,
          2,
          3
        ];
$VAR1 = [
          1,
          2,
          5
        ];
$VAR1 = [
          1,
          2,
          5
        ];
$VAR1 = [
          1,
          2,
          6
        ];
$VAR1 = [
          1,
          2,
          6
        ];

my @array = ([1,2,3],[4,5,6]);
test(@array);

sub test {
    my @values = @_;

    $_[0]->[2] = 5; # Originaldaten werden verändert
]