#!/usr/bin/perl
use strict;
use warnings;
my %azul = (
    FOO => "azul foos secret",
    FII => "azul fiis secret",
    FAA => "azul faas secret"
);
my %verde = (
    FOO => "verde foos secret",
    BOO => "verde boos secret"
);
my @monstros = ( \%verde, \%azul );
print "monstros[0]{FOO}:\n\'" . $monstros[0]->{FOO} . "\'\n\n";