Select Code to Download

my %hash = (
  keya => [a1, b1, [ qw(c1a, c1b) ] ],
  keyb => [a2, b2, [ qw(c2a, c2b) ] ],
)

foreach my $key (sort keys %hash){
  print @{$hash{$key}}[0]; #prints a1 for first hash
  print @{$hash{$key}}[1]; #prints b1 for first hash
  print @{$hash{$key}}[2]; #how do I access this list?
}