my ($N, $V, %hash);
for (@line) {
    ($N, $V) = split /delim/;
    $hash{$N} = $V;
}