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