-command => [sub { my $i = shift; print "-".$subs[$i]."-".$i."\n"; }, $i],