printf STDOUT ("1-->%s<--\n", $Row->{ Cells } );
printf STDOUT ("2-->%s<--\n", $FieldOrder );
printf STDOUT ("3-->%s<--\n", $Row->{ Cells }[ ( @$FieldOrder ) ] ) ;