foreach $line (@file) {
    chomp($line);

    foreach $key (keys %hash) {
        $pattern = "s$key_val";
        if($line =~ /$pattern/) {
            print "$line\n";
            $line =~ s/$pattern/my_temp_var/;
        }
    }
}