my $moreListCnt = 2;
my $cnt = 0;
my @morelist;

for (;$cnt<$moreListCnt;$cnt++) {
    $morelist[$cnt]{'more'} = $content->{'soapenv:Body'}{'getKeywordVariationsResponse'}{'getKeywordVariationsReturn'}{'moreSpecific'}[$cnt]->{'text'};
    $morelist[$cnt]{'comp'} = $content->{'soapenv:Body'}{'getKeywordVariationsResponse'}{'getKeywordVariationsReturn'}{'moreSpecific'}[$cnt]->{'advertiserCompetitionScale'};
    $morelist[$cnt]{'pop'} = $content->{'soapenv:Body'}{'getKeywordVariationsResponse'}{'getKeywordVariationsReturn'}{'moreSpecific'}[$cnt]->{'searchVolumeScale'};
}