CGI-Perlの質問です。

書いている間にkn1967さんのコメントが先に入ってしまったので恐縮ですが．．．

一応HTMLへのリスト出力以外の部分を考慮したご参考ということで。

変数の頭の"my"は全て削除可能です。

#これ以前で $option_su_ex,$option_su_tani,$option_no,$option2_noが定義されていると考えています
my $i=0;
my $flag_zaiko_non=0;
my $flag_non_option =1;

my @option=split(/:/,$option);
my @option2=split(/:/,$option2);
my $option_set="";
my $option2_set="";

my $zaiko_new=0;
# 以下の変数はリスト出力以外の用途で使用予定有りと考えています。
my $zaiko=0;
my @op_k;
my @op_m;
my @op_su;
my @op_pr;
my @op2_k;
my @op2_m;
my @op2_su;

$i=0;
for (@option) {
    my @value = split(/,/,$_);
    # op_*[$i] が後ほど使用予定無しであれば下の1行は不要です(本ソースコード内では使用していません)
    ($op_k[$i],$op_m[$i],$op_su[$i],$op_pr[$i])=@value;
    next if ($value[0] eq '');
    $flag_non_option=0;
    my $su_ex='';
    my $pr_ex='';
    if ($value[2] > 0) {
        $zaiko_new+=$value[2];
        $su_ex = ($option_su_ex == 1) ? "$value[2]$option_su_tani" : "";
    } else {
        # $flag_zaiko_non はリスト出力以外の用途で使用予定有りと考えています
        # 1商材でも在庫無しのものがあればフラグを立てて良いのですね？
        $flag_zaiko_non=1;
    }
    $pr_ex = ($value[3] ne '') ? "[$value[3]]" : "";
    $option_set=$option_set."<option value='$value[0]'>$value[1]$pr_ex$su_ex</option>\n";
    last if (++$i >= $option_no);
}

$option_set=($option_set ne "") ? "<select name='op1'>\n$option_set</select>" : "";
# 下の print は確認用です。意図通りの出力を確認したら削除してください。
print "$option_set\n";

# $zaiko は全商品の合計で良いのですよね？
if($flag_non_option ne '1'){
    $zaiko=($zaiko_new > 0) ? $zaiko_new : 0;
}

$i=0;
for (@option2) {
    my @value = split(/,/,$_);
    # op2_*[$i] が後ほど使用予定無しであれば下の1行は不要です(本ソースコード内では使用していません)
    ($op2_k[$i],$op2_m[$i],$op2_su[$i])=@value;
    next if ($value[0] eq "");
    $option2_set=$option2_set."<option value='$value[0]'>$value[1]</option>\n";
    last if (++$i >= $option2_no);
}

$option2_set=($option2_set ne "") ? "<select name='op2'>\n$option2_set</select>" : "";
# 下の print は確認用です。意図通りの出力を確認したら削除してください。
print "$option2_set\n";