foreach my $d (keys %{$doc->{'results'}{'result'}{'output'}{'products'}{'product'}})    {
        print $doc->{'results'}{'result'}{'output'}{'products'}{'product'}{'image_link'} . "\n";
}