Select Code to Download

my @arr = (1,2,3);
my $ref = \@arr; # or just [1,2,3]
print $ref->[0]; # 1
$arr[0] = 42;
print $ref->[0]; # 42

use strict; use warnings;
use Data::Dumper;
...
print Dumper(@children);
print Dumper(@family);
print Dumper(@males);