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