in reply to Minimisation of codes (if grep {})

$error_count{ $error_type{ $intermediate_array[11] } }++;

grep { /^\Q...\E$/ } @list is the slow way of saying grep { $_ eq ... } @list which is way slower than using a hash.

- tye