DB<1> ($key,$val) = qw / 60 811/;

  DB<2> push @{$HoA{$key}}, $val;

  DB<3> ($key,$val) = qw / 60 812/;

  DB<4> push @{$HoA{$key}}, $val;

  DB<5> x \%HoA
0  HASH(0x80359cb0)
   60 => ARRAY(0x8035ffa8)
      0  811
      1  812
  DB<6> print "@{$HoA{60}}"
811 812