@array =qw (34 56 78 9);
$index  = 0;
foreach (@array)
{
   print "$index \t $_ \n";
   $index++;

}