foreach $text (@raw_power) {
  my @keywords = keywords($text);
  map { print; } @keywords;
}