use warnings;
use strict;

my $aref = [
      {
        BIRTH        => "11/04/2014",
        CODE => 4,
        NAME      => "JOHN D.",
        NUMBER      => 1234,
      },
      {
        BIRTH        => "11/04/2014",
        CODE => 4,
        NAME      => "Mike D.",
        NUMBER      => 1234,
      },
];

for my $block (@$aref){
    my $number = $block->{NUMBER};
    print "$number\n";
}

##</code><code>##

use warnings;
use strict;


my $arefs = [
    [
      {
        BIRTH        => "11/04/2014",
        CODE => 4,
        NAME      => "JOHN D.",
        NUMBER      => 1234,
      },
    ],
    [
      {
        BIRTH        => "11/04/2014",
        CODE => 4,
        NAME      => "Mike D",
        NUMBER      => 5555,
      },
    ],
];

print "$arefs->[1][0]{NUMBER}\n";