#!/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;
}