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

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