if (/\Q$hashnew{$com}\E/) {
# ...

##</code><code>##

if (index($_, $hashnew{$com}) + 1) {
# ...