And, just for some laughs ... another way to do it, using the all-too-magical Contextual::Return:

#!/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} = $_;
}
[download]

Though, to be honest, that's a lot of all-upper-case code.