#!/usr/bin/perl

use warnings;
use strict;
use diagnostics;

use File::Copy;

# Set up arrays with original name and new name with unique ISBN
my @IDI_name = ('I:\Production\TEST\P001.txt', 'I:\Production\TEST\P002.txt'); 
my @PLL_name = ('I:\Production\TEST\ISBN_Text.txt', 'I:\Production\TEST\ISBN2_Text.txt'); 

# Walk through array and copy with new filename
foreach my $IDI_name (@IDI_name) {
	copy("$IDI_name", "$PLL_name");
}