print "<BR>Listing: " . $ref->{ResultSet}->{Listing}->[0]->{title} . "<BR>";

$results = &overture_run($keyword);

# this is the routine that will pass back the overture results...
sub overture_run {

my $keyword = $_[0];
my $Limit = 10;

my $page = get("http://xml.uk.feed.overture.com/d/search/p/feed/xml/uk/ctxt/?mkt=uk&maxCount=11&adultFilter=clean&Partner=feed_xml_uk_ctxt&Keywords=$keyword");
if ($page !~ /Listing rank/) { return 'none found'; }

# parse the page...
my $ref = XMLin($page);

# grab the number of results we have...
my $track_hits = $ref->{ResultSet}->{numResults};

# now lets go through, and create the HTML for it...
my $html_links;
if ($track_hits > 1) {
for (my $count = 1; $count <= $track_hits; $count++) {

# get the variables all setup...
my $Description = $ref->{ResultSet}->{Listing}->[$count]->{description};
my $Title = $ref->{ResultSet}->{Listing}->[$count]->{title};
my $URI = $ref->{ResultSet}->{Listing}->[$count]->{ClickUrl}->{content};
my $ClickURL = $ref->{ResultSet}->{Listing}->[$count]->{siteHost};

# put the links into HTML format...
$html_links .= Links::SiteHTML::display('overture_link', { Description => $Description, Title => $Title, URL => $URI, ShowURL => $ClickURL });

}
}

# now lets send it back to the template....
$html_links ? return Links::SiteHTML::display('overture_search', { results => $html_links } ) : return '';

}

use Data::Dumper;
print Dumper($ref) . "\n";
print $ref->{ResultSet}->{Listing}->[0]->{title} . "\n";
exit;

[root@www cgi-bin]# perl TranslateXmlToHtml.pl
Number: 1$VAR1 = {
'xsi:noNamespaceSchemaLocation' => 'http://dtd.overture.com/schema/affiliate/2.8/OvertureSearchResults.xsd',
'xmlns:xsi' => 'http://www.w3.org/2001/XMLSchema-instance',
'ResultSet' => {
'numResults' => '1',
'id' => 'searchResults',
'Listing' => {
'siteHost' => 'www.kelkoo.co.uk',
'description' => 'Kelkoo is the unbiased shopping search engine that compares prices from hundreds of UK shopping sites to help you find great deals on videos and DVDs available to buy online.',
'title' => 'Great Film Deals at Kelkoo: Escort',
'ClickUrl' => {
'content' => 'http://www6.overture.com/d/sr/?xargs=02u3hs9yoakFVuyzCDRRAmvxJeMD%2BFj4VVKgBGq9RNZG1RDOAowXFptL6%2Fbg51VZGkjq7uZ3fIb%2Fm31g9DZuClgs7fMFfYNT%2BtvBDmzjLhuMH5YcvPRobaSrSDx1d%2BljlDLy0w3V56jjUwkjEJwHF2dh1ojiin%2B5PnUgOYWXAcfzKdyWcAvRAePOV%2F6BdC%2B2Tl5G91ZHU7y3fFJLXMBsNizIdmrDQnf6MMCtqUghggd6MowY1S6MDX4IWFLQ8jdVhr%2BewONqXnKz%2Bzexl%2FLPJhxie0KynGWOwzJEOga0cUhZxMOFIwg1ITfqztsmDka4k0POLLiV5dee65TL3PA%2FD%2B3o3UwK2VaxZxjBZdkmyKmGWhqET5dXMkEAGlkonigPCAG%2BSyAHJ%2F',
'type' => 'body'
},
'rank' => '1'
}
}
};

Not an ARRAY reference at TranslateXmlToHtml.pl line 34.
[root@www cgi-bin]#

if ($track_hits > 1) {
for (my $count = 1; $count <= $track_hits; $count++) {

for (my $count = 0; $count < $track_hits; $count++) {

my $track_hits = $ref->{ResultSet}->{numResults};

if (!$track_hits) { return; }

# now lets go through, and create the HTML for it...
my $html_links;
if ($track_hits > 1) {
for (my $count = 1; $count <= $track_hits; $count++) {
# get the variables all setup...
print $ref->{ResultSet}->{Listing}->[$count]->{title} . "\n";

}
} else {
# get the variables all setup...
print $ref->{ResultSet}->{Listing}->{title} . "\n";
}