for ($i=0; $<100; $i++)
{  push(@arr,1);
}