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

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

##</code><code>##

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

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

##</code><code>##

0: 21
1: 45
2: perl
3: 28
4: monks
5:  
6: togo