my $m0; vec($m0, $_, 1) = 1 for 0,2,8,9,10;