use strict;
use warnings;
use Win32::OLE;
use Win32::OLE qw(in with);
use Win32::OLE::Const "Microsoft Excel"

for ($begincol;$begincol<$totcol;$begincol++) {
    for ($beginrow;$beginrow<$maxrows;$beginrow++) {
        my $cap = $Sheet2->Cells($beginrow,5)->{'Text'};
        my $app = $sheet2->Cells(3,$begincol)->{'Text'};
        my $yes = "yes";
        if (index($app, $cap) != -1) {
            $Sheet->Cells($beginrow,$begincol)->{Value} = $asis;
        }
    }
$beginrow = 7;
}