sub print_categories {
    my $level = shift;
    foreach my $id (@_) {
      print "$level: $category{$id}->[0]\n";
      print_categories($level + 1, @{$category{$id}->[0]});
    }
  }

  print_categories(0, @top_level_categories);