my $n = 5;
my @a = (0) x $n;

print join("\n", @a) . "\n";