Select Code to Download

(undef, undef, undef, my @set) = split /\s+/, $x;

...
splice(@set, 0, 3);

my @set = sub { @_[3..$#_] }->( split /\s+/, $x );