use strict;
my (%hash,@array);
$hash{A}='B';
push @array,\%hash;