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

$ages{'Martin'} = 44;
$ages{'Rikke'}  = 12;
$ages{'Sharon'} = 23;

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