for my $element ( @{ $array_ref } ) {
    $element = CGI::escapeHTML( $element );
}#ende for