foreach $hash ( @aoh)
{
        my %new  = reverse (%{$hash});
        foreach ( sort {$a <=> $b } keys (%new ))
        {
                print " $new{$_} :$_ \n ";
        }
        print "-------------\n";
}