in reply to Unique rows in Array of array
#!/usr/bin/perl use warnings; use strict; use Data::Dumper; my @array = ([ 1, 2, 3], [10, 10, 10], [ 1, 1, 5]); my @nonequal = grep $_->[0] != $_->[1] || $_->[2] != $_->[0], @array; print Dumper \@nonequal; [download]