Using Michael's data: list = {{3, 5, 7, 5, 2}, {1, 2, 3, 4, 5}, {1, 3, 4, 5}, {1, 3, 3}}; Function definition del[{e_, p_}][list_] /; list[[p]] == e := Nothing del[_][list_] := list Expected results: del[{3, 3}] /@ list {{3, 5, 7, 5, 2}, {1, 3, 4, 5}} del[{3, 1}] /@ list {{1, 2, 3, 4, 5}, {1, 3, 4, 5}, {1, 3, 3}}