public/code/autor.citata.pl

   1 $key = 'autor'; $value = 'citata';
   2
   3 foreach my $a ( @{ $row->{autor_full} } ) {
   4  foreach my $c ( @{ $row->{broj_citata} } ) {
   5   $out->{$a} += $c;
   6  }
   7 }