#!/usr/bin/perl

use strict;
use warnings;

my %hash;
$hash{$_}=1 for 1 .. 10_000_000;

__END__