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