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