my database which has only around 150 records

If that is total for all tables then consider extracting all the stat1-4 data in 4 queries first to avoid repeat queries for each record in KPI Master. Also consider replacing * in sql with specific fields that you require. This is untested as I don't have a suitable access database but something like this should run in seconds I would hope !

#!perl
use DBI;
use strict;

my $dbh = DBI->connect('dbi:ODBC:driver=Microsoft Access Driver (*.mdb
+, *.accdb);
dbq=D:\Project\Project\BSC_KPIMonitoring\CHN\E_BSC_KPIMonitorDB.mdb');

my @tables = (
  'SDCCHBLOCKING',
  'SDCCHDROP',
  'TCHBLOCKING',
  'TCHDROP', );

  my %abbr = (
  'SDCCHBLOCKING' => 'SB',
  'SDCCHDROP'     => 'SD',
  'TCHBLOCKING'   => 'TB',
  'TCHDROP'       => 'TD', );
  
my $regex = join '|',@tables;

# get all data
my %db=();
for my $tbl (@tables){
  $db{$tbl} = $dbh->selectall_arrayref("SELECT NE,* FROM $tbl");
}

my $sql = "SELECT * FROM KPI_Master";
my $sth = $dbh->prepare($sql);
$sth->execute;

while ( my ($bsc,$kpi,$thresh) = $sth->fetchrow_array() ){
  
  # search table corresponding to kpi
  if ($kpi =~ /($regex)/){
    my $tbl  = $1;
    for ( @{$db{$tbl}} ){
      # select records with correct NE value in first column
      if (( $_->[0] eq $bsc ) && ( $_->[3] > $thresh )){
        print "$abbr{$tbl},$bsc,$thresh,/".$_->[3]."\n";
      }
    }
  }
}

[download]
poj

In reply to Re: Perl DBI by poj
in thread Perl DBI by Arunkumarpro

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.