Select Code to Download

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

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

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