foreach (@Liste)
{
$mw->Button( -text => $_, -command => [\&button_press, $_] );
}

sub button_press
{
my $button = shift;

print $button;
}