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