my $z = zeros(10);
$z(4) .= 1;
print $z;