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

##</code><code>##

foreach $i (sort keys (%{$ref01})) {
        print "$i: @{$ref01->{$i}}\n";
        }

##</code><code>##