#!/usr/bin/perl
#
# eg3: double an array using map (functional)
#
use strict;
use warnings;

my @orig = (1,2,5,8,9,10,5);
my @doubled = map { $_ * 2 } @orig;
print join(',', @doubled)."\n";
