#!/usr/bin/perl
use warnings;
use strict;

my @AoH;
my @age_ref = (42, 33);

@AoH = (
    { age => \$age_ref[0] },
    {},
    { age => \$age_ref[1] },
);


use Data::Dumper; print Dumper \@age_ref;

@age_ref = (1, 2);

use Data::Dumper; print Dumper \@AoH;


##</code><code>##

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,