#!/usr/bin/perl

use warnings;
use strict;
use diagnostics;

use File::Copy;

my @IDI_names = ('I:\Production\TEST\P001.txt',      'I:\Production\TEST\P002.txt'); 
my @PLL_names = ('I:\Production\TEST\ISBN_Text.txt', 'I:\Production\TEST\ISBN2_Text.txt'); 


for my $idx (0 .. $#IDI_names) {
    my $IDI_name = $IDI_names[$idx];
    my $PLL_name = $PLL_names[$idx];
    copy($IDI_name, $PLL_name);
}