my $morelist = $content->{'soapenv:Body'}{'getKeywordVariationsResponse'}{'getKeywordVariationsReturn'}{'moreSpecific'};

for my $more (@$morelist) {
  print "$more->{text}\n";
  print "$more->{advertiserCompetitionScale}\n";
  print "$more->{searchVolumeScale}\n";
  $more->{more} = $more->{text};
  $more->{comp} = $more->{advertiserCompetitionScale};
  $more->{pop} = $more->{searchVolumeScale};
}