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