foreach my $acct (@listB) {
    %$acct = (%$acct, %{$listA->[0]});
}