Select Code to Download

while   ( my ($section,$v1) = each %$hash ) {
  while ( my ($item,$count) = each %$v1   ) {
    push @data, [$count, $section, $item];
  }
}