#!/usr/local/bin/perl -w
# copy-shallow.pl -- Shallow Copy: Oberflaechenkopie
#              einer verschachtelten Struktur

@LoLoL = ( [ [ 1 , 2 , 3 ], [ 4 , 5 , 6 ], [ 7 , 8 , 9 ] ],
           [ ['a','b','c'], ['d','e','f'], ['g','h','i'] ],
           [ ['A','B','C'], ['D','E','F'], ['G','H','I'] ] );

@copyLoLoL = @LoLoL;        # VORSICHT! Oberflaechenkopie

print $copyLoLoL[2][1][0], "\n";    # Okay, 'D'
$copyLoLoL[2][1][0] = 'X';          # in @copyLoLoL geaendert

print $LoLoL[2][1][0], "\n";        # OOPS: 'X', nicht 'D'!