my @array = (21..102);
my $ref = \$array[5];

$$ref = 4;

print $array[5];