まぁ意識しろって言われたら
漏れならこう書くんだけど

sub saitama{
　foreach my $value (@_){
　　my ($saitama,$hoge) = split(/,/,$value);
　　if($saitama == $hoge){ return 1; }
　}
　return 0;
}

78のコードと比べるとどっちのほうが
好まれるのかい？まぁ下らんと言えば下らないのだが・・・

>>73
use strict 使ってみたら？