for (1..5)
{
  $#a=$_;
}

##</code><code>##

my @a = (0) x 5