#!/usr/bin/perl
use strict;
use warnings 'all';
use Tk;

# MainWindow erzeugen
my $mw = tkinit();

# Buttons erzeugen
for my$i (1..10)
{
    $mw->Button(-text => $i, -command => sub { func($i) })->pack(-fill => "x");
}

# event loop starten
MainLoop;

# aktuelles $i ausgeben
sub func { print "@_\n" }