my @a;
for my $key(sort keys %$s){
    push @a,$_ for @{$s->{$key}->{1}};
}