hi ,monk

Try the following code. I can't claim any credit for this.

#!/usr/bin/perl -w
@AoA=(["1","15"], ["2","5"], ["3","4"], ["3","5"], ["3","8"], ["3","5"
+], ["4","6"], ["4","5"]) ; 

# print out original array 
foreach $a (@AoA) { 
print "["; 
foreach $v (@{$a}) { 
print $v,","; 
} 
print "],"; 
} 
print "\n"; 

# now remove duplicates - see web page for explanation 
%temp = (); 
@list = grep ++$temp{join(",",@{$_})} < 2, @AoA; 

# now print again to see amended list 
foreach $a (@list) { 
print "["; 
foreach $v (@{$a}) { 
print $v,","; 
} 
print "],";
[download]

Originally posted as a Categorized Answer.