map { $h{join($;, @$_)}++ == 0 ? $_ : () } @_; #### grep { ! $h{join($;, @$_)}++ } @_;