note Thelonius You can replace this little loop <code> foreach my $key (keys %$temp) { $x->{$key} = $temp->{$key}; } </code> with <code> @$x{keys %$temp} = values %$temp; </code> 717037 717037