tie (my %counter, 'Tie::Counter', file=>$file, keys=>[qw(foo bar bam)]);
$counter{foo}++;