sub mysub { $arrayref = shift; ... $arrayref->[$x][$y] = 1; }