$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) {
##</code><code>##

my @cell_interior_pattern = (xlPatternAutomatic, xlPatternChecker, xlPatternCrissCross, xlPatternDown);