while (<FILE>) {
    my ($key, @values) = split;
    push @{$hosts{$key}} = @values;
    }