use Win32::OLE::Variant;

# ...

$worksheet->Cells(10,5)->PasteSpecial(
    {
        Paste       => xlAll,
        Operation   => xlNone,
        SkipBlanks  => 0,
        Transpose   => Variant(VT_BOOL, 'True')
    });