push @{$list[$depth]}, @current_list;

##</code><code>##

push @{$list[0][3]}, @current_list;