for my $i (0 .. @subs){