はじめまして、れいです。Perlを勉強したばかりで、
どうしても分からないところがありまので、
だれかPerlに詳しい人がいたら教えてください。

例えば次のような、配列があり、配列2つを比較して
同じ数字がある場合には○、同じ数字が無い場合には×、
をつけるにはどうすればよいのですか。

@a=('1','3','6');
@s=('0','2','3','4');

foreach $s(@s){
foreach $a(@a){
if ($s == $a){
print "○$s";
}else{
print "×$s";
}
}
}


これだと、×0×0×0 ×2×2×2 ×3○3×3 ×4×4×4
このように表示されてしまいます。
これを、×0　×2　○3　×4　というように表示したいのです。

だれか、分かる人いたら教えてくさい。(^o^)丿