#!/usr/bin/perl -w
use strict;

my @data = qw~DataB absx FALSE TRUE ABCx xzx 123x .99999x TRUE 10x~;

for(0..$#data){
    my $n= $_+1;
    print qq~\$CurrentSheet->Range("A$n")->{"Value"} = "$data[$_]"\n~;
}

1;