my @next = grep $_, split;