Select Code to Download

#! /usr/bin/perl -wT

...
                      data => \@data
                      }, \$string );
          });

[% id %] - [% values %] ==> [% average %]

[% FOREACH n = data %]
  [% average = 0 %]
...
  [% average = average / n.datum.size %]
[% n.id %] - [% n.datum.join(',') %] ==> [% average %]
[% END %]

[% FOREACH n = data %]
[% n.id %] - [% n.datum.join(',') %] ==> [% n.average %]
[% END %]

[% FOREACH n = data %]
[% n.id %] - [% n.values %] ==> [% n.average %]
[% END %]