C:/Perl_524/bin\perl.exe  d:/exp/grab_assign.pl 
ok 1 - AoA grabbing different levels
ok 2 - HoA grabbing different levels
1..2