my @buttons;
	for my $i(0..5){
    push @buttons,
        $mw->Button(-text => $i,
                    -command => sub{
                        print "pressed $i\n";
                        # or use the widget:
                        print "pressed ",
                            $buttons[$i]->cget('-text'),
                                "\n";
                    })->pack;
}