#!/usr/bin/perl
use strict;
use warnings;

use Contextual::Return;

my $range = do {
    my $count = 1;
    ACTIVE STR { RESULT { "A${count}B${count}" }; $count++ }
};

for (@$retrieve_ref)
{
    $sheet->Range($range)->{Value} = $_;
}