print map "$_ = $ref->{$_}\n", sort keys %{$ref};