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