创建一个干净，正确的Perl TK复选框

Question

是否有更高效，更少的代码方式来执行以下操作而不会让它太混乱？我想确保跟踪每个值，因为我想运行单独的函数，具体取决于是否选择了$ average_value或者是否可以选择所有三个选项。该程序是一个基本的数据分析应用程序，为您提供一个想法。

编辑：

添加以下代码，这使得它像布尔一样，Perl不使用“TRUE”或“FALSE，而是使用ZERO或ONE值。

 $differences = $tab1 -> Checkbutton(
                      -text     =>      "Differences", 
                      -font     =>      \$fontdefault,
                      -variable =>      \$differences_value,

    $totalcheck = $average_value+$duplicates_value+$differences_value;

上面的代码使用-variable。我想上面的补充可能会提供更多关于这是否是有效编码的信息 - 或者可能是最短的最佳方法。数百行之后Perl变得非常混乱，我试图找出可能的最佳方法。

ORIGINAL：

    if ($totalcheck <= 0 ) {
            my $d = $mw->Dialog(
            -title       =>     "ERROR: Blank", 
            -bitmap      => 'warning',
            -text        =>     "No selection made.", 
                );
                    $d->Show; 
            } else {
                        if ($average_value > 0) {
                            print "average\n"
                                }  
                        if ($duplicates_value > 0){
                                print "duplicates\n"
                                } 
                        if ($differences_value > 0){
                                print "differences\n"
                                } 
                }