#!/usr/bin/perl
#
# eg5: generate a list of (n,2n) pairs using map
#
use strict;
use warnings;

my @orig = (1,2,5,8,9,10,5);
my @result = map { $_, $_ * 2 } @orig;

print join(",", @result)."\n";
