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

my $query = <<EOF;
SELECT m.BSC, m.KPI, m.THRESH,
	coalesce(sb.somecol, sd.somecol, tb.somecol, td.somecol) AS somecol
FROM KPI_Master m
LEFT JOIN SDCCHBLOCKING sb ON m.NE = sb.NE AND m.KPI = 'SDCCHBLOCKING'
LEFT JOIN SDCCHDROP     sd ON m.NE = sd.NE AND m.KPI = 'SDCCHDROP'
LEFT JOIN TCHBLOCKING   tb ON m.NE = tb.NE AND m.KPI = 'TCHBLOCKING'
LEFT JOIN TCHDROP       td ON m.NE = td.NE AND m.KPI = 'TCHDROP'
EOF

my %kpis = (SDCCHBLOCKING => 'SB', SDCCHDROP => 'SD',
            TCHBLOCKING   => 'TD', TCHDROP   => 'TD');

my $sth = $dbh->prepare($query);
$sth->execute;

while (my @row = $sth->fetchrow_array()) {
	my ($bsc, $kpi, $thresh, $somecol) = @$row;

	if ($somecol > $thresh) {
		print join(",", $kpis{$kpi}, $bsc, $thresh, "/$somecol");
	}
}