my $count = 0;

my %division{$_} = (
1 => 'AF',
2 => 'CSS',
);

my $addbutton = $f->Button(-text => "Add Chart Blocks", 
	-command => [\&addwidget,$division{$count++}], )->pack(-anchor => 's');