my @numbers = (1,2,3,4,5);
   foreach (@numbers){
       print "$_\n";
   }