in reply to merging two hashes

my @a = map { @{$s->{$_}->{'1'}} } sort keys %$s;

Just combining the best (IMHO) of previous answers.

In Section Seekers of Perl Wisdom