...
for my $i (0...$#a)
{
    $f->Checkbutton(-text => $a[$i], -command => sub { fun($i) } )->pack();
}
...