my %HoAoA = (
   foo => [ [ 1,2 ], [3,4] ],
   bar => [ [ 5,6 ], [7,8] ],
);

use Data::Dumper;
print Dumper \%HoAoA;