This appears to be a snippet from an ad hoc template processing Perl script. Is it? If so, then the pairs of percent symbols (%%) are likely tags in the template that are matched and replaced with variable text; specifically, the value referred to by the hash variable $var->{LEARN}{TEST}.