@a = grep !( $m[ $c + $$_[0] ] & 16 + $| * $$_[1] ), #left [ -1, 8 ], #right [ 1, 1 ], # up [ $width, 4 ], # down [ -$width, 2 ] )