Select Code to Download

 
$Cell[1] = {
                CellType        => "ROText",
...
                };
        $cell->Contents("${$Cell[$_]}{'Contents'}");
};

foreach (1 .. $#Cell) {
        if (${$Cell[$_]}{'CellType'} == "Text") {
...
                };
        $cell->Contents("${$Cell[$_]}{'Contents'}");
};