eval { my $m = ARRAY->new(); print_array_ref_AAA( $m ); }; if( $@ ) { say $@ }