Select Code to Download

my $headerHash;
$headerHash{$1} = $2;

#!/usr/bin/perl
use strict;
...
keys(%hash)=32;     #increase size of hash to 32 buckets
$buckets = %hash;
print "$buckets\n"; #prints 1/32 1 of 32 buckets used