C:\>more first.pl
#use warnings;
#use strict;
my @arr = (1..10);
foreach my $num (@arr) {
        print "Index is: $num. Value is: $arr[$num] ";
}
#Another way
print "\nWith a C like for loop\n";
 for($num = 0; $num<= $#arr;$num++) {
         print "Index is: $num. Value is: $arr[$num] ";
}

my @divbytwo =  map { $_ / 2} @arr;
print "\n\@divbytwo = @divbytwo\n";

my @divbytwoo =  grep { $_ % 2 == 0} @arr;
print "\@divbytwoo = @divbytwoo\n";

C:\>perl first.pl
Index is: 1. Value is: 2 Index is: 2. Value is: 3 Index is: 3. Value is: 4 Index is: 4. Value is: 5 Index is: 5. Value is: 6 Index is: 6. Value is: 7 Index is: 7. Value i
s: 8 Index is: 8. Value is: 9 Index is: 9. Value is: 10 Index is: 10. Value is:
With a C like for loop
Index is: 0. Value is: 1 Index is: 1. Value is: 2 Index is: 2. Value is: 3 Index is: 3. Value is: 4 Index is: 4. Value is: 5 Index is: 5. Value is: 6 Index is: 6. Value i
s: 7 Index is: 7. Value is: 8 Index is: 8. Value is: 9 Index is: 9. Value is: 10
@divbytwo = 0.5 1 1.5 2 2.5 3 3.5 4 4.5 5
@divbytwoo = 2 4 6 8 10