#!/usr/bin/perl

use warnings;
use strict;
use diagnostics;

use File::Copy;

# Set up hash with original name and new name with unique ISBN
my %names = (
		'I:\Production\TEST\P001.txt' => 'I:\Production\TEST\ISBN_Text.txt',
		'I:\Production\TEST\P002.txt' => 'I:\Production\TEST\ISBN2_Text.txt'
		); 

# Walk through hash and copy with new filename
while( my( $IDI_name, $PLL_name ) = each %names ) {
    copy( $IDI_name, $PLL_name );
}