{
    my $r = sub {
        my $count = shift;
        return 'A' . $count . ':B' . $count;
    };

    for ( @{$retrieve_ref} ) {
        $sheet->Range( $r->( $count++ ) )->{'Value'} = $_;
    }
}