Select Code to Download

...
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();
}
...