$A->{arrayholder} = [ ];

@{ $A->{arrayholder} } = ( $B1, $B2 );
# -or-
#push @{ $A->{arrayholder} }, $B1, $B2;

foreach my $B (@{ $A->{arrayholder} }) {
   ...
}