Select Code to Download

$cell_interior_pattern{1} = xlPatternAutomatic;        
$cell_interior_pattern{2} = xlPatternChecker;        
$cell_interior_pattern{3} = xlPatternCrissCross;        
$cell_interior_pattern{4} = xlPatternDown;        
#...
for $jq (sort {$a <=> $b} keys %cell_interior_pattern) {

my @cell_interior_pattern = (xlPatternAutomatic, xlPatternChecker, xlP
+atternCrissCross, xlPatternDown);