how to extract data from excel that satifies a match condition

[manishabh77]

I will be obliged if anybody can help me with this problem:
I am trying to extract data from an excel sheet that matches IDs given in column 4 of the excel sheet.I have stored those query IDs in an array (@names). After I look for the match in this section of the code:
if ($value=~/^$names[$k]$/), I want to write out only those rows that satisfy the above natch condition. But currently the code I have here writes out everything. How do I get it to selectively write out data?

# Array for the IDs that I will be looking in the excel sheet
@names = (1,3,4);
 
foreach my $ref (@names) {
    chomp($ref);
 
}
#===================================================
 
my $kk=@names;
use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3; # die on errors...
 
# get already active Excel application or open new
my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
|| Win32::OLE->new('Excel.Application', 'Quit'); # get already active Excel
# application or open new
 
# open Excel file 
 
my $file = "C:\\Data\\Projects\\iavarone\\data_extraction\\Samples_table.xls";
my $Book = $Excel->Workbooks->Open($file); 
# select worksheet number 4 (you can also select a worksheet by name)
my $Sheet = $Book->Worksheets(5);
#defining the row and column to look for the IDs stored in @names array
foreach my $row (2..540) 
    {
    foreach my $col (4)
        {
# skip empty cells
    next unless defined $Sheet->Cells($row,$col)->{'Value'};
              $value = $Sheet->Cells($row,$col)->{'Value'};
 
for ($k=0;$k<$kk;$k++) 
{if ($value=~/^$names[$k]$/)
{
my $array = $Sheet->Range("A1:H540")->{'Value'};
foreach my $cell_ref (@$array) {
foreach my $value1 (@$cell_ref) {
print "$value1\t";
        }
print "\n";
}
 
}
}
}
}

[nithinpes]

Should ideally work if you change:

for ($k=0;$k<$kk;$k++) 
{if ($value=~/^$names[$k]$/)
{
my $array = $Sheet->Range("A1:H540")->{'Value'};
foreach my $cell_ref (@$array) {
foreach my $value1 (@$cell_ref) {
print "$value1\t";
        }
print "\n";
}
}
}
 
 

to:

my $array = $Sheet->Range("A1:H540")->{'Value'};
foreach my $cell_ref (@$array) {
foreach my $value1 (@$cell_ref) {
my $found=0;
for ($k=0;$k<$kk;$k++) {
if($value1=~/^$names[$k]$/) {print "$value1\t" ; $found=1;} 
}
print "\t" if($found==0); ###leave blank cells if not matched
 }
print "\n";
}