#!/usr/bin/perl
#
# eg6: turn an array into a hash using map
#
use strict;
use warnings;

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

my @result = sort(keys(%double));
print join(",", @result)."\n";
