@AoH =
(
        { name => Adam, age => 0 },
        { name => Bob,  age => 10 },
        { name => Cat,  age => 20 }
);

@age_ref = (\$AoH[0]{age},\$AoH[2]{age});
${$age_ref[1]} = 23;
print "\$AoH[2]{age} = $AoH[2]{age}\n";
# The above prints '$AoH[2]{age} = 23'