I have done it in the following way:

#!/usr/bin/perl -w

use strict;

my @ahoa=(     

{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} }, );
            
for(my $i=0; $i<(scalar(@ahoa)); $i++)
{    
    print "i: $i\n";
    print "\n";
                
    for my $alphakey (sort {$a <=> $b} keys %{$ahoa[$i]})
    {    
        print "\t AK $alphakey\n";
                    
        for my $betakey (sort {$a cmp $b} keys %{$ahoa[$i]{$alphakey}}
+)
        {print "\t\t $betakey => $ahoa[$i]{$alphakey}{$betakey}\n";}

    }
    print "\n";

}
[download]

thank you all for responding.