my @longer = grep $n < length, @array;