use warnings;
use strict;


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