Help for this page

Select Code to Download

Select or download this

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

Select or download this

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