my $sql = <<SQL;
select  sd.site_name,
    sum(NVL(ncl.downtime_secs,0)) downtime,
    (case when ? < 100 then to_char(?,99.99999) else to_char(?,999) end) availability,
    convert_seconds_to_dhms(sum(NVL(ncl.downtime_secs,0))) downtime_dhms,
    country
from    ncl_summary_tmp ncl,
    (select distinct contracted_node_name, site_name from contracted_nodes ) cn,
    site_details sd
where   UPPER(SUBSTR(ncl.node (+) ,0,(INSTR(ncl.node (+),'.') -1))) = cn.contracted_node_name 
and    sd.site_name = cn.site_name
having ? < 100
group by sd.site_name
order by downtime
SQL

    my $sth = $dbh->prepare_cached($sql) || die;
    $sth->execute(($percent) x 4) || die;

    $sth->bind_columns(\my (
        $sitename,
        $downtime,
        $availability,
        $downtime_dhms,
        $country,
    ));

    my %countries;
    while ($sth->fetch)
    {
        push @{$countries{$country}{values}}, [
            $sitename,
            $downtime,
            $availability,
            $downtime_dhms,
        ];
        $countries{$country}{total_downtime} += $downtime;
    }

    $sth->finish;