use strict;
use warnings;

my %HoH;
my @newind = (1 .. 3);
my @newchroma = (4 .. 6);
my @newchromb = (7 .. 9);

$HoH{1} =
    {
        individual  => [@newind],
        chromasome1 => [@newchroma],
        chromasome2 => [@newchromb],
    };

my @value = @{$HoH{1}{'individual'}};
print "@value \n";

$value[0] = 42;
$HoH{1}{'chromasome1'} = [@value];
print "@{$HoH{1}{'chromasome1'}}\n";