my @a; for my $key(sort keys %$s){ push @a,$_ for @{$s->{$key}->{1}}; } [download]
In reply to Re: merging two hashes by jZed in thread merging two hashes by sen