What you want to use to copy and paste into excel is:

    my $Workbook = $Excel->Workbooks->Open({Filename=>"test.xls"});
    my $curSheet = $Workbook->Worksheets(1);

    $curSheet->Range("2:2")->{Value} = $curSheet->Range("1:1")->{Value
+};
[download]

Hope that this helps.