Select Code to Download

my @peeps = qw( Martin Sharon Rikke );
my %ages;
...

my @insert = @ages{@peeps};
# @insert = ( 44, 23, 12 )

my @peeps = qw( Martin Sharon Rikke );
my %ages;
...
$ages{'Sharon'} = 23;

my @ages_array = map { ${$_} } @ages{@peeps};