#!/usr/bin/perl

use warnings;
use strict;

my %hash = (); 
keys %hash 10000;

while() {
    # fill hash
}