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