#!/usr/bin/perl

use strict;
use warnings;
use Clone qw(clone);
use Data::Dumper;

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