my $retrieve_ref = $sbh->fetchall_arrayref;
for (my $count = 0; $count < @$retrieve_ref; $count++) {
    $sheet->Range("A$count:B$count")->{Value} = $$retrieve_ref[$count];
}

##</code><code>##

{
    package WakkaWakka;
    our @ISA = (ref $sheet);
    sub Range {$_[0]->SUPER::Range("A$_[1]:B$_[1]");}
    bless $sheet, __PACKAGE__;
}

##</code><code>##

$sheet->Range($count)->{Value} = $$retrieve_ref[$count];