Select Code to Download

my $file = "project.txt";
# Use three-argument form of open() (available in perl 5.6.0) 
...
  }
}
close(FILE);

open(OUT, '>>', 'project.out') or die "Can't open project.out for writ
+ing: $!\n";
foreach my $i (keys %input) {
  print OUT "$i\n" unless $input{$i} > 1;
}
close OUT;