Select Code to Download

  my @array_data = qw( 21 45 perl 28 monks);

   foreach my $data (@array_data){
     print $data,"\n";
   }

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

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

0: 21
1: 45
...
4: monks
5:  
6: togo