foreach my $message (...) {
   ...
   my $score_range = floor($score/$threshold);
   $index{$score_range} ||= [];
   push @{$index{$score_range}}, $message;
}