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

my @set = split /\s+/, $x;
splice(@set, 0, 3);

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