diff --git a/cgi/minion_job_status.pl b/cgi/minion_job_status.pl
index 5b65407512edb..f67e98b5689d1 100755
--- a/cgi/minion_job_status.pl
+++ b/cgi/minion_job_status.pl
@@ -51,8 +51,6 @@
 
 ProductOpener::Display::init();
 
-my $import_files_ref;
-
 my $job_id = param("job_id");
 
 my %data;
diff --git a/cgi/search.pl b/cgi/search.pl
index a730ec1236dc8..082c7ffadb923 100755
--- a/cgi/search.pl
+++ b/cgi/search.pl
@@ -259,7 +259,6 @@
 
 	my %search_fields_labels = ();
 	my @tags_fields_options;
-	my @contains;
 
 	push(
 		@tags_fields_options,
diff --git a/lib/ProductOpener/Display.pm b/lib/ProductOpener/Display.pm
index f3122e5c95af9..1f18f718dd475 100644
--- a/lib/ProductOpener/Display.pm
+++ b/lib/ProductOpener/Display.pm
@@ -5206,8 +5206,6 @@ sub search_and_display_products($request_ref, $query_ref, $sort_by, $limit, $pag
 
 		for my $product_ref (@{$request_ref->{structured_response}{products}}) {
 			my $img_url;
-			my $img_w;
-			my $img_h;
 
 			my $code = $product_ref->{code};
 			my $img = display_image_thumb($product_ref, 'front');
@@ -6693,7 +6691,6 @@ sub display_page($request_ref) {
 
 	$log->debug("displaying page", { title => $title }) if $log->is_debug();
 
-	my $object_ref;
 	my $type;
 	my $id;
 
@@ -6906,7 +6903,6 @@ sub display_page($request_ref) {
 	my $image_banner = "";
 	my $link = lang("donate_link");
 	my $image;
-	my $utm;
 	my @banners = qw(independent personal research);
 	my $banner = $banners[time() % @banners];
 	$image = "/images/banners/donate/donate-banner.$banner.$lc.800x150.svg";
@@ -9268,7 +9264,6 @@ CSS
 			}
 			my @columns;
 			my @extra_row_columns;
-			my @ecological_impact_columns;
 
 			my $extra_row = 0;	# Some rows will trigger an extra row (e.g. Salt adds Sodium)
 
diff --git a/lib/ProductOpener/ForestFootprint.pm b/lib/ProductOpener/ForestFootprint.pm
index 2492ee1cef2f6..de0c6ac6375e5 100644
--- a/lib/ProductOpener/ForestFootprint.pm
+++ b/lib/ProductOpener/ForestFootprint.pm
@@ -440,8 +440,6 @@ sub compute_footprints_of_ingredients($$$) {
 	
 	foreach my $ingredient_ref (@$ingredients_ref) {
 		
-		my $ingredient_origins_ref;
-		
 		# If we are at the first level of the ingredients array,
 		# ingredients have a rank, except the sub-ingredients listed at the end
 		if ($ingredient_ref->{rank}) {
diff --git a/lib/ProductOpener/Ingredients.pm b/lib/ProductOpener/Ingredients.pm
index ce470b21b87e8..d1b882cd1ba03 100644
--- a/lib/ProductOpener/Ingredients.pm
+++ b/lib/ProductOpener/Ingredients.pm
@@ -5243,7 +5243,6 @@ sub extract_ingredients_classes_from_text($) {
 		}
 	}
 
-	my $with_sweeteners;
 
 	my %all_seen = (); # used to not tag "huile végétale" if we have seen "huile de palme" already
 
diff --git a/lib/ProductOpener/Tags.pm b/lib/ProductOpener/Tags.pm
index 6d4af78707b25..091b1ae5a66a5 100644
--- a/lib/ProductOpener/Tags.pm
+++ b/lib/ProductOpener/Tags.pm
@@ -2512,7 +2512,6 @@ sub get_taxonomy_tag_and_link_for_lang($$$) {
 	my $tagid = shift;
 
 	my $tag_lc;
-	my $tag_url;
 
 	if ($tagid =~ /^(\w\w):/) {
 		$tag_lc = $1;
diff --git a/scripts/obsolete/import_openfood_ch_name_translations.pl b/scripts/obsolete/import_openfood_ch_name_translations.pl
index 36d9fb367268a..4af4a7cccbd7f 100755
--- a/scripts/obsolete/import_openfood_ch_name_translations.pl
+++ b/scripts/obsolete/import_openfood_ch_name_translations.pl
@@ -1271,7 +1271,6 @@
 			#print $json;
 			
 			my @modified_fields;
-			my @images_ids;
 			
 			my $openfood_ref = decode_json($json);
 			my $openfood_id = $openfood_ref->{data}{id};
diff --git a/scripts/run_cloud_vision_ocr.pl b/scripts/run_cloud_vision_ocr.pl
index dbb10e3030045..2f57eec22c13c 100755
--- a/scripts/run_cloud_vision_ocr.pl
+++ b/scripts/run_cloud_vision_ocr.pl
@@ -114,8 +114,6 @@
 
 my $cloud_vision_response = $ua->request($request);
 
-my $status;
-	
 if ($cloud_vision_response->is_success) {
 
 	$log->info("request to google cloud vision was successful") if $log->is_info();
diff --git a/scripts/tag_stores_magasins_u.pl b/scripts/tag_stores_magasins_u.pl
index 333fff692d8a9..f2e3cfbb6611a 100755
--- a/scripts/tag_stores_magasins_u.pl
+++ b/scripts/tag_stores_magasins_u.pl
@@ -130,7 +130,6 @@
 			my $modified = 0;
 			
 			my @modified_fields;
-			my @images_ids;
 			
 			my $code = $imported_product_ref->{"EAN PRINCIPAL"};
 			
diff --git a/t/food.t b/t/food.t
index df1fe518b0165..7ad438201bf0f 100644
--- a/t/food.t
+++ b/t/food.t
@@ -486,7 +486,6 @@ $product_ref = {};
 
 my $value = "50.1";
 my $modifier;
-my $unit;
 # test we have no modifier
 normalize_nutriment_value_and_modifier(\$value, \$modifier);
 is($value, "50.1");