my @mismatch;
        for($i=0;$i<=length($str1);$i++)
        {
            if(substr($str1,$i,1) ne substr($str2,$i,1)){
                push @mismatch, "$i." . substr($str1,$i,1) . substr($str2,$i,1);
            }
        }
        if(@mismatch) {
            print "mismatch: @mismatch\n";
        }