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