my $file = ...;
my $n=0;
if( -e $file ) { ## Stop endless loop if $file doesn't exist
    $n++ until rename $file, "$file.bak$n";
}
else {
    die "$file doesn't exist";
}
my $backup = "$file.bak$n";