...

for my $key (sort keys %block) {

my $number = $block{$key}{data}[3]; $ << Not working
print $number;

print Dumper @{$block{$key}{data}};
# Dump:
<code>
=code
[
  {
    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      => "JOHN D.",
    NUMBER      => 1234,
  },
]
[
  {
    BIRTH        => "11/04/2014",
    CODE => 4,
    NAME      => "JOHN D.",
    NUMBER      => 1234,
  },
]
[
  {
    BIRTH        => "11/26/2014",
    CODE => 3,
    NAME      => "MARY LEE",
    NUMBER      => 55666,
  },
]
[
  {
    BIRTH        => "11/26/2014",
    CODE => 3,
    NAME      => "MARY LEE",
    NUMBER      => 55666,
  },
]
[
  {
    BIRTH        => "11/26/2014",
    CODE => 3,
    NAME      => "MARY LEE",
    NUMBER      => 55666,
  },
]

=cut