my @array = (1,2,3);
my $array[0] = 4;