Hi, I'm currently working on the following script:

use strict;
use warnings;

my $usage = "Usage: $0 <infile.txt>\n";
my $infile = shift or die $usage;
use File::Basename;
my $DIR = dirname($infile);
my $outfile = $DIR . "/Results.txt" or die $usage;

open (my $data, "<", $infile) or die "There was a problem opening: $!"
+;
my @primers = <$data>;
close $data;
chomp @primers;

use Algorithm::Combinatorics qw(combinations);
my $strings = \@primers;
my $iter = combinations($strings, 2);
open(my $fh, '>', $outfile);
while (my $c = $iter->next) {
    print $fh @$c, "\n";
}
print ("Finished. The results are located at $outfile\n\n");
[download]

I was wondering if there was a simple method for allowing outfile to be sequentially numbered if an existing file is found i.e. Results.txt, Results1.txt, Results2.txt? I've seen a few methods around however they do seem quite long and i'm curious to see if there's an available module or easier way to do it! Thanks!