(undef, undef, undef, @set) = (split ' ', $x);