@bin[@pos] = (1) x @pos; #(undef, undef, 1, undef, 1, undef, 1, undef, undef, 1)