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

##</code><code>##

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