Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
'Template'->new
    ->process(\'TEST: [% FOREACH element IN arr.sort("name") %] [% ele
+ment.name %][% END %]',
              { arr => \@arr });

TEST: Foo