for(my $i=0; $i<@array; $i++) { next if(!$array[$i]); for(my$j=0; $j<@array; $j++) { next if($i == $j); next if(!$array[$j]); if(is_ok($array[$i], $array[$j]) { print "Found a match, $array[$i], $array[$j]"; $array[$i] = $array[$j] = ""; } } }