Update - I found the solution - it is in the line below where Interior can have simply Color

$sheet->Range($rng)->Interior      ->{Color} = $patterncolour;
[download]

to fill the cell.
However it would be good to know why the solid colour definition does not work