( my $key, (undef) x 5, my $val) = split(/\s+/, $_);