foreach $i (sort keys (%{$ref01[0]})) {
  print "$i: ${$ref01[0]}{$i} ${$ref01[1]}{$i} ${$ref01[2]}{$i}\n";
  }