#===== Open the file containing our list of produce
$filename = "produce_items.txt";
open(PRODUCE, $filename) || die "Error opening $filename! : $!\n ";