sub tree_data {
  my ( $old_data, $key_name, $next_group, @remaining_keys ) = @_;
  my ( @new_data, $last_key, $build_box );

  foreach ( @{ $old_data } ) {
    if ( $last_key and ( $last_key ne $_->{ $key_name } ) ) {
      push @new_data, {
        $key_name   => $last_key,
        $next_group => ( @remaining_keys )
          ? tree_data( $build_box, @remaining_keys )
          : $build_box,
      };
      undef $build_box;
    }
    $last_key = delete $_->{ $key_name };
    push @{ $build_box }, $_;
  }
  push @new_data, {
    $key_name   => $last_key,
    $next_group => ( @remaining_keys )
      ? tree_data( $build_box, @remaining_keys )
      : $build_box,
  };

  return \@new_data;
}