#!/usr/bin/perl

use strict;
use warnings;
use constant KEYS => 10_000_000;

my %hash;
keys %hash=KEYS;
$hash{$_}=1 for 1 .. KEYS;

__END__