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