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";
}