my ($key, @array[0,1], undef, $value) = split " ", $string;