Select Code to Download

my @Array = qw (aaaaa bbbbb ccccc);
print @Array;

my $AoH = [{ keyname => "aaaaa" },
              { keyname => "bbbbb" },
              { keyname => "ccccc" }];

print $AoH; ???