diff --git a/cachegrind/cg_annotate.in b/cachegrind/cg_annotate.in
index 30cc049..bbbd36d 100644
--- a/cachegrind/cg_annotate.in
+++ b/cachegrind/cg_annotate.in
@@ -604,7 +604,7 @@
 
         # Stop when we've reached all the thresholds
         my $reached_all_thresholds = 1;
-        foreach my $i (scalar @thresholds - 1) {
+        foreach my $i (0 .. scalar @thresholds - 1) {
             my $prop = $curr_totals[$i] * 100 / $summary_CC->[$sort_order[$i]];
             $reached_all_thresholds &= ($prop >= $thresholds[$i]);
         }
diff --git a/vg_annotate.in b/vg_annotate.in
index 30cc049..bbbd36d 100644
--- a/vg_annotate.in
+++ b/vg_annotate.in
@@ -604,7 +604,7 @@
 
         # Stop when we've reached all the thresholds
         my $reached_all_thresholds = 1;
-        foreach my $i (scalar @thresholds - 1) {
+        foreach my $i (0 .. scalar @thresholds - 1) {
             my $prop = $curr_totals[$i] * 100 / $summary_CC->[$sort_order[$i]];
             $reached_all_thresholds &= ($prop >= $thresholds[$i]);
         }