while (<IN_FILE>) {
    foreach my $key (keys %substitute_hash) {
        s/$key/$substitute_hash{$key}/g;
    }
}