Hi monks I need your help about perl. I will compare three values. Ther are $a=TTTATTT, $b=TTTTTTT, $c=TBTTTTT. When I compare $a and $b, then I want to catch only "A". Also When I compare $b and $c, then I want to catch "B". Of course below script I can comapre using function "split". but there are so many loop that script's performance is really bad... Can you help me about that issue?? Performance is the best important thing I think.. thank you :)

@a = split(//,$a);
@b = split(//,$b);
@c = split(//,$c);
foreach $a(@a){$test{$a}++}
foreach $b(@b){$test($b)++}
foreach $c(@c){$test($c)++)
foreach $test(keys %test){if($test{$test} eq 1){print "only one : $tes
+t\n"}}
[download]