Du kannst beispielsweise in der for-Schleife als erstes eine Zuweisung
machen und im Closure $j statt $i verwenden.
Oder du verwendest ein spezielles Perl/Tk-Konstrukt für Callbacks:
-command => [sub { my $i = shift; print "-".$subs[$i]."-".$i."\n"; }, $i],