my $arr = shift;
$$arr[3]=7;
#print Dumper $arr;