#!perl -w

use strict;

my $startTime = time();

my %lookupTable;

for (my $i=0; $i<=2000000; $i++) {
        if (!$lookupTable{$i}) {
                $lookupTable{$i} = 1;
        }
}

my $totalTime = time() - $startTime;
print "Total Time: $totalTime\n";