$mw->Button(-text => "print", -command=> sub {print @a })->pack;

##</code><code>##

$mw->Button(-text => "print", -command => \&print_it);

##</code><code>##

sub print_it() {
    print @a;
}