my @a = map { @$_ } (
   $s->{aa}->{'1'},
   $s->{bb}->{'1'},
   $s->{cc}->{'1'},
);