for ($i=0;$i<=$#var;$i++) {
    $var[$i] =~ s/\.\.\./\.\+/g;
    
    for ($j=$i+1;$j<=$#var;$j++) {
        $var[$j] =~ s/\.\.\./\.\+/g;

        if ($var[$i] !~ m/$var[$j]/) {
            print "$i-$j:\t[$var[$i]] and [$var[$j]] DO NOT MATCH!\n";
        }
    }  
}