use strict;
use warnings;

my @as;
$as[10] = 0;
for my $a (@as) {
    print ".";
}