my @set = (split /\s+/, $x)[3 .. -1 + split /\s+/, $x];