%read=();
while(defined($_=<FILE>)){
 if(!defined($read_lines{$_})){
  print OUTFILE $_;
  $read{$_}=1;
 }
}