my @keywords = keywords( join '', @raw_power );

##</code><code>##

my $raw_power;
{
  local $/;  # get ready for slurpage
  open(DAT, $data_file) || die("COULD NOT OPEN FILE");
  $raw_power = <DAT>;
  close(DAT);
}

my @keywords = keywords($raw_power);