foreach my $ref ( @products ) 
{
    if ($ref->{prodname} =~ ($value))
    { 
        print "<B>";
        print $ref->{prodname};
        print "</B>";
        print "<br>";
        print "<IMG SRC\=\"$ref->{img1}\">";
        print "<br>";
        print $ref->{prodprice};
        print "<br>";
        print "<a href\=\"shopper\.exe\?preadd\=action\&amp\;key\=$ref->{prodcode}\">", "Add to Cart", "</a>";
        #print $ref->{prodtext};
        print "<br>";
        print "<hr>";   

######This part stops my foreach loop
my $textfile = "$ref->{prodname}";
open (INF, $textfile) or die "Can't open file";
my @scoop = <INF>;
close (INF);
print "@scoop";
#########

    }
}