#!/usr/bin/perl -w
use strict;
use warnings;

    use Spreadsheet::WriteExcel;
    use Spreadsheet::ParseExcel;
    my $workbook   = Spreadsheet::ParseExcel->new("/home/Admin/Desktop/RP_processed_Address_withsubscriptionID (1).xls");
    my $workbook1 = Spreadsheet::WriteExcel->new("/home/Admin/Desktop/new.xls");
    open(my$old, '<', "$workbook") or die "oops!";
    open(my$new, '>', "$workbook1") or die "ooops!";
    while (my$line = <$workbook>) {
        print $workbook1 $line
        
    }


##</code><code>##

Odd number of elements in hash assignment at /usr/local/share/perl5/Spreadsheet/ParseExcel.pm line 167.
oops! at sample.pl line 9.

##</code><code>##

#!/usr/bin/perl -w
use strict;
use warnings;
use Spreadsheet::ParseExcel;
use Spreadsheet::WriteExcel;

    my $parser   = Spreadsheet::ParseExcel->new();  my$workbook=$parser>parse('/home/Admin/Desktop/RP_processed_Address_withsubscriptionID (1).xls');
    
my $workbook1 = Spreadsheet::WriteExcel->new("/home/Admin/Desktop/Perl.xls");