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