データを読込んだ後にoption01が「○」を抽出して表示させるものを作りたいのですが、
抽出結果を表示の際に２重表示してしまいます。


※スクリプトは下記の通りです


#!/usr/bin/perl -w
print "Content-type: text/html\n\n";


require  '../jcode.pl';

$filename = "../gir-data.cgi";

use CGI qw(:standard);


$opt01s01 = param('opt01s01');
$opt01s02 = param('opt01s02');
$opt01s03 = param('opt01s03');

# HTML出力

# データ読み込み
open IN,"$filename";

# データを全て処理するまでループ
while(<IN>){

$data = $_;
chop $data;
($id,$name,
 $profile01,$profile02,$profile03,$profile04,$profile05,$profile06,$profile07,$profile08,$profile09,$profile10,$profile11,
 $basic01,$basic02,$basic03,$basic04,$basic05,$basic06,$basic07,$basic08,$basic09,$basic10,
 $option01,$option02,$option03,$option04,$option05,$option06,$option07,$option08,$option09,$option10,
 $option11,$option12,$option13,$option14,$option15,
 $ph01nf,$ph02nf,$ph03nf,$ph04nf,$ph05nf,$ph06nf) = split(/\,/,$data);

if ( $option01 =~ /\○/ ) {
	$opt01s01 = "<a href=\"gir-view.cgi?id=$id\">$name</a><BR>";
	}
elsif ( $option01 =~ /\△/ ) {
	$opt01s02 = "<a href=\"gir-view.cgi?id=$id\">$name</a><BR>";
	}
elsif ( $option01 =~ /\×/ ) {
	$opt01s03 = "<a href=\"gir-view.cgi?id=$id\">$name</a><BR>";
	}


print $opt01s01;

}
close IN;


症状は下記のアドレスの通りです。
http://zyforce.ddo.jp/love/op-list.shtml


どのように対処したらよいか、教えていただけませんでしょうか？