my ($key, $val) = (split(" ", $_))[0,6]; would work, although you might just as well write:

my @values = split(" ", $_);
my ($key, $value) = @values[0,6];
[download]

Edit: this is not an exact equivalent though, as davies demonstrated below