foreach my $z (0..9){$mw->bind("<$z>", sub{print "$z\n";});}