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

##</code><code>##

foreach my $d (keys %{$doc->{'results'}{'result'}{'output'}{'products'}{'product'}})    {
        print $d->{'image_link'} . "\n";  #UPDATE (was: $d{'image_link'} ) spotted by choroba (thanks) .. i was sure i put
}