example reduce code to use $out, $key and $value

diff --git a/public/code/autor.citata.pl b/public/code/autor.citata.pl
new file mode 100644 (file)
index 0000000..9b1d15f
--- /dev/null
+++ b/public/code/autor.citata.pl
@@ -0,0 +1,7 @@
+$key = 'autor'; $value = 'citata';
+
+foreach my $a ( @{ $row->{autor_full} } ) {
+ foreach my $c ( @{ $row->{broj_citata} } ) {
+  $out->{$a} += $c;
+ }
+}