use strict;
use warnings;

my @work;
@{$work[0]}=(1, 2); #2D-Array
push(@work, @work); #Array wird verdoppelt
$work[0][0]=3;
print $work[1][0]."\n"; # 3, ist klar, im Array steht nur Referenz