Help for this page
use Data::Dump qw(dd); my %HoH = ( ... my @a; push @a, [ values $HoH{$_} ] for sort keys %HoH; dd @a;
([1, 2, 4], [4, 3, 10], [2, 9, 3])