Help for this page
... for my $i (0...$#a) ... my $j = shift; print $a[$j]; }
... for my $i (0...$#a) ... $f->Checkbutton(-text => $a[$i], -command => sub { fun($i) } )->pa +ck(); } ...
www.com | www.net | www.org
No recent polls found