Select Code to Download

while(<DATA>){
    next unless /\w/;
...
    $sr{$server  } = 1;
}

for my $key (sort keys %h){
    for (@db) { $h{$key}{$_} = round($h{$key}{$_} / ($count * 60))} ;
}