Alternately consider using YAML (or YAML::Syck).

use YAML;

my @aohoh = @{ YAML::Load( <<EOT ) };
--- #YAML:1.0
- 1: { A: 1.1, B: 10.1, C: 100.1 }
  2: { A: 2.1, B: 20.1, C: 200.1 }
  3: { A: 3.1, B: 30.1, C: 300.1 }
- 4: { A: 4.1, B: 40.1, C: 400.1 }
  5: { A: 5.1, B: 50.1, C: 500.1 }
  6: { A: 6.1, B: 60.1, C: 600.1 }
- 7: { A: 7.1, B: 70.1, C: 700.1 }
  8: { A: 8.1, B: 80.1, C: 800.1 }
  9: { A: 9.1, B: 90.1, C: 900.1 }
EOT

print YAML::Dump( \@aohoh ), "\n";
[download]

Update: Added use line; I was using perl -MYAML testing but the snippet won't run as is without it.