my %HoA = ( 0=>[ 1, 2, 3 ], 1=>[ 4, 5, 6 ], 2=>[ 7, 8, 9 ] );

print join'', map @{ $HoA{ $_ } },sort{$a<=>$b} keys %HoA;

123456789