Select Code to Download

.....
.....
my $retrieve_ref = $sbh->fetchall_arrayref;
    map {$sheet->Range('A'.$count.':B'.$count)->{'Value'} = $_; $count
+++;} @$retrieve_ref;

map {my $range = 'A'.$count.':B'.$count; $sheet->Range($range)->{'Valu
+e'} = $_; $count++;} @$retrieve_ref;