use strict;
use warnings;
use Data::Dumper;
my @bar;
my $foo = $bar[1]{bar};
die Dumper( \@bar );
__END__
$VAR1 = [
          undef,
          {}
        ];