my %HoH; for (@AoA) { $HoH{ $_->[0] }{ $_->[1] } = [ $_->[2] .. $_->[3] ]; }