use strict;
use warnings;
use Tk;
use Tk::Table;


our $MW = MainWindow->new(%{$BPP::BPPDEFAULTS::MYDEFAULTS{MAINWINDOW}}); 
$MW->geometry('800x700+0+0');
my $tableframe = $MW->Frame(-background=>'white'
				)->pack(-side=>'top', 
					-fill=>'both',
				       	-pady=>20);
			
my $bill_table = $tableframe->Table(-rows=>2, 
				-columns=>3, 
				-background=>'pink', 
				-scrollbars=>'e'
				)->pack(-fill=>'both', 
					-side=>'top', 
					-anchor=>'s');
				
my @foo = qw/ Apple Oranges Pears/;
my $x = 1;
my $checkbox;
my $checkboxvalue = 0;
foreach my $f (@foo)
{
$checkbox = $bill_table->Checkbutton(-variable=>\$checkboxvalue);
$bill_table->put($x,0, $checkbox);
$bill_table->put($x,1, $f);

$bill_table->Button(-text=>'Submit',
		-command=>sub{print $f}
		)->pack;
$x++;
}#end foreach loop

MainLoop;