for(my $i=0; $i<(scalar(@arr)); $i++)
{print"$i $arr[$i]\n";}