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

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