Select Code to Download

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]}[0]; #prints c2a
}

foreach my $key (sort keys %hash){
  print $hash{$key}->[0];
  print $hash{$key}->[1];
  print $hash{$key}->[2]->[0];
}