sub unlink_exists {
  my ($filename) = @_;
  if (-e $filename) {
    unlink $filename or die "Couldn't remove '$filename' : $!\n";
    print "Removed $filename\n";
  };
  return 1;
};

unlink_exists($_) for ($f,$a,$scratchfile,$fasta_output);