>>71
激しく意味不明なやつになっちまったけど

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

こんなやつもだめ？ってこと