$line =~ $_ and $lookfor->{ $_ } = $line for keys %{ $lookfor };