if(exists $results{$number}) {
  $existing = $results{$number}; 
  $results{$number} = $existing . "... @before" . "<b>$&</b>" . "@after ...";
  } else {
  $results{$number} = "... @before" . "<b>$&</b>" . "@after ";
  }