Example 8-17. examples/arrays/map_perl.pl

#!/usr/bin/perl
use strict;
use warnings;

my @numbers = (1..30);
my @doubles = map {$_ * 2} @numbers;

foreach my $num (@doubles) {
    print "$num\n";
}