my $i;
while(1) {
    my $dest = compose_name($base, $ext, $i++); 
    if(copy $source, $dest) {
        last;
    }
}