DB<4> @values = qw / 60 811/;

  DB<5> push @{$AoA[$values[0]]}, $values[1];

  DB<6> @values = qw / 60 812/;

  DB<7> push @{$AoA[$values[0]]}, $values[1];

  DB<8> x \@AoA

0  ARRAY(0x80430518)
   0  empty slot
   1  empty slot
   2  empty slot
   3  empty slot
(...)
   58  empty slot
   59  empty slot
   60  ARRAY(0x803f50f0)
      0  811
      1  812