Select Code to Download

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

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

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