my @list = (); my @sub_list = splice ...; push @list, \@sub_list;