my $outfile = "a";
    $outfile++ while -e $outfile;
    open my $fh, ">", $outfile or die "$outfile: $!";