sub { $array[$_[0]][$_[1]][$_[2]] = $_[-1] }