Personally, I wouldn't fret on it. If the point is you want to do it all in one statement:

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

But that splits twice.