foreach my $v ( @{ $row->{casopisi_naslov} } ) {
 push @{ $update->{casopis_uc} }, uc $v;
}
