eval{
    my $n = Package_a_ref->new();
    print_array_ref_BBB( $n );
};
if ( $@ ) { say $@ }