my @arr;
 
push @arr, 1;
push @arr, 3;
 
$arr[0] = 2;
 
print $arr[0];