diff --git a/acqui/z3950_search.pl b/acqui/z3950_search.pl
index 5c1a06036b..1dc551935f 100755
--- a/acqui/z3950_search.pl
+++ b/acqui/z3950_search.pl
@@ -90,14 +90,14 @@ my $DEBUG = 0;    # if set to 1, many debug message are send on syslog.
 my $frameworks = getframeworks;
 my @frameworkcodeloop;
 foreach my $thisframeworkcode ( keys %$frameworks ) {
-    my %row = (
+    my $row = {
         value         => $thisframeworkcode,
         frameworktext => $frameworks->{$thisframeworkcode}->{'frameworktext'},
-    );
-    if ( %row->{'value'} eq $frameworkcode){
-        %row->{'active'} = 'true';
+    };
+    if ( $row->{'value'} eq $frameworkcode){
+        $row->{'active'} = 'true';
     }
-    push @frameworkcodeloop, \%row;
+    push @frameworkcodeloop, $row;
 }
 
 $template->param( frameworkcode => $frameworkcode,