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
}