$last_key = delete $_->{ $key_name }; push @{ $build_box }, $_; #### push @{ $build_box }, $_; $last_key = delete $build_box->[-1]{$key_name};