my @array_data = (21,45,'perl',28,'monks',' ','togo');

   for my $num (0..$#array_data){
     print $num,': ',$array_data[$num],"\n";
   }