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