Select Code to Download

use strict;

my(@Array1);
...
@Array1    = @Array1[ ( @Array2 ) ];

printf STDOUT ("-->%s<--\n", join( ",",  @Array1 ) );

@{ $Row->{ Cells } }    = @{ $Row->{ Cells }[ ( @$FieldOrder ) ] };