use Tie::Hash::Sorted;
tie my %s_hash, 'Tie::Hash::Sorted';
print tied( %sorted_data )->Count, "\n";

##</code><code>##

my $s_href = tie my %s_hash, 'Tie::Hash::Sorted';
print "$_\n" for keys %s_hash;
print $s_href->Count, "\n";