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;
[download]

Just iterate through each key, and accumulate the values into your array. The above prints:

([1, 2, 4], [4, 3, 10], [2, 9, 3])
[download]