use strict;
use warnings;
use Data::Dumper;

# This will give you a clearer idea of what you data actually looks like
print Dumper($AoH); 

# This assumes that $data is an index (integer)
my $year = $AoH->[$data]{'YEAR'};