@a=(0,1,2,3,4,5,{ich=>'ich'});
print "a= @a, $a[6]{ich} \n";
@d=@a;
$d[6]{ich} = 'du';
$d[7]=8;
print "d= @d, $d[6]{ich} \na= @a, $a[6]{ich}"