$bill_table->Button(-text=>'Submit',
                        -command=>[
                           sub{
                             my $valref = shift;
                             my $valname=shift;
                             if ($$valref ==1){print $valname}
                           },
                           \$checkboxvalue[$t],
                           $f,
                        ],
                        )->pack;