my ($key) = grep {$error_code{$_} =~/$element/} keys %error_code; 
     # Note - parens around ($key) provide the required list context
$key and push @ILO_ERRORS, $error_code{$key};