push @new, $listref->[$_]->[0] for (0..$#list);