#!/usr/local/bin/perl
use Tk;
use strict;
use warnings;

# Main Window
my $mw = new MainWindow;

#GUI Building Area
my @style_sizes_array = qw(XXS XS S M L XL XXL XXXL);

    #checkbutton sizes setup
    for (my $ctr = 0; $ctr < @style_sizes_array; $ctr++){
		my $size_type = $style_sizes_array[$ctr];

       	my $frmTemp = $mw->Frame()
        ->pack(-anchor => 'nw',-side => 'top');

        $frmTemp ->Checkbutton(-text => $size_type,-width => 10,
                      	-variable => \$ctr)->pack(-anchor =>'nw',-fill => 'both',-expand => 1);
    }

MainLoop();