my $num = 0;
for (1..5) {
    $num++;
    .
    .
}