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

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

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