$min = ($#a > $#s)? $#s: $#a;
for (0..$min) {
　if ($s[$_] == $a[$_]) {
　　print "○$s[$_]";
　} else {
　　print "×$s[$_]";
　}
}