while (($key, $value) = each @sentence) {
   if (has_one_or_more_keywords($value)) 
      print "$key: $value\n";
}