open(LOAD,"mona.dat");
@mona1 = <LOAD>;
close(LOAD);

foreach (@mona1) {
($yakin,$hiroyuki) = split(/<>/);
if($yakin eq $FORM{'yakin'}) {
（？）
next;
}
}

え〜と、（？）の部分で、現在処理中の配列を、削除したいわけです。
ようは、配列をforeachで読んでいって、$yakinと、
送信されてきた（フォームから投稿されてきた）
$FORM{'yakin'}が一致した場合、現在処理している配列を削除したいわけです。
（？）の部分に、なんと入れたらいいのか、よろしくです