use Data::Dump qw(dd);
my %HoH = (
    A => {
        A   => "1",
        B   => "4",
        C  => "2",
             },
    B => {
        A   => "4",
        B    => "10",
        C    => "3",
    },
    C => {
        A   => "2",
        B    => "3",
        C    => "9",
    },
);

my @a;
push @a, [ values $HoH{$_} ] for sort keys %HoH;
dd @a;