my @data;
foreach my $section (keys %hash) {
  foreach my $item (keys %{$hash{$section}}) {
    push @data, printf "%5d %7s %7s\n", $hash{$section}{$item}, $section, $item;
  }
}

print sort @data;