my %hash = map { (split /delim/, $_ )[0,1] } @line;