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

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