while (<CSVFILE1>) {
    if ($csv->parse($_)) {
        my @Fld = $csv->fields;

        my $col = 0;
		my $a = 1;
		foreach my $token (@Fld) {
		    for my $a (@Fld) {
			   my $a    = $a + 10;
			   my $b    = $a + 10;
		    }
		    my $range = "A".$a.":A".$b;
		    $worksheet->write($row, $col, $token);
		    $worksheet->merge_range($range, $token, $merge_format);
	            my $temp	= $a;
		    my $a	= $b;
		    my $b	= $temp;
		    $col++;
                    $token++;
	 }
        $row++;
    }
    else {
        my $err = $csv->error_input;
        print "Text::CSV_XS parse() failed on argument: ", $err, "\n";
    }
}