for (my $n = 0; $n <= scalar(@a); $n++) {
    ...
}