Select Code to Download

#!usr/local/bin/perl

...
    }
    return $percent = ($person_count/$total_person_count)*100;
}

$range1=1;
$range2=10;
...
    printf("  %.0f\t",(percent($range1,$range2)));
}
print("\n");