for (my $num = 0; ...