my $headerHash;
$headerHash{$1} = $2;
##</code><code>##

#!/usr/bin/perl
use strict;

my %hash;             #defaults to 8 buckets
$hash{a}=33;          #use one of the buckets
my $buckets = %hash;

print "$buckets\n"; #prints 1/8, 1 of 8 buckets used
keys(%hash)=32;     #increase size of hash to 32 buckets
$buckets = %hash;
print "$buckets\n"; #prints 1/32 1 of 32 buckets used