>>815
見にくいソースなので自己流の書き方にしてみたけど、検証きぼん・・・

foreach my $key (@tottano){
　　foreach my $list (@maeno){
　　　　if($key eq $list){
　　　　　　undef $key;
　　　　　　last;
　　　　}
　　}
　　if(!undef $key){
　　　　$F = $key . "\n";
　　}
}