#!/usr/bin/perl -w

use strict;

my %lookupTable;

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