in reply to Concatenate anonymous hash ref
You can replace this little loop
withforeach my $key (keys %$temp) { $x->{$key} = $temp->{$key}; }
@$x{keys %$temp} = values %$temp;
|
---|
In Section
Seekers of Perl Wisdom