use strict;

my $file = 'data.txt';
my $thiscount;
my $fullcount;
my $max = 10; # change this to, say, 10000
my %lines;

open(INPUT, $file);
while(<INPUT>){
  chomp;
  if(exists $lines{$_}){
    print "duplicate line (on read):$_\n";
  }
  else{
    $lines{$_} = 1;
  }
  $thiscount ++;
  $fullcount ++;
  if($thiscount >= $max){
    my $checkcount=0;
    open(CHECK, $file);
    while(<CHECK>){
      $checkcount ++;
      if($checkcount > $fullcount){
        chomp;
        if(exists $lines{$_}){
          print "duplicate line (on check):$_\n";
        }
      }
    }
    undef %lines;
    $thiscount = 0;
  }
}

##</code><code>##

map{$a=1-$_/10;map{$d=$a;$e=$b=$_/20-2;map{($d,$e)=(2*$d*$e+$a,$e**2
-$d**2+$b);$c=$d**2+$e**2>4?$d=8:_}1..50;print$c}0..59;print$/}0..20