diff -upr postgresql-14.3.orig/src/pl/plperl/expected/plperl.out postgresql-14.3/src/pl/plperl/expected/plperl.out
--- postgresql-14.3.orig/src/pl/plperl/expected/plperl.out	2022-05-10 00:14:45.000000000 +0300
+++ postgresql-14.3/src/pl/plperl/expected/plperl.out	2022-05-29 13:51:38.332998929 +0300
@@ -725,7 +725,7 @@ ERROR:  Can't use string ("foo") as a SC
 CONTEXT:  PL/Perl anonymous code block
 -- check that we can "use warnings" (in this case to turn a warn into an error)
 -- yields "ERROR:  Useless use of sort in scalar context."
-DO $do$ use warnings FATAL => qw(void) ; my @y; my $x = sort @y; 1; $do$ LANGUAGE plperl;
+DO $do$ use warnings FATAL => qw(scalar void) ; my @y; my $x = sort @y; 1; $do$ LANGUAGE plperl;
 ERROR:  Useless use of sort in scalar context at line 1.
 CONTEXT:  PL/Perl anonymous code block
 -- make sure functions marked as VOID without an explicit return work
diff -upr postgresql-14.3.orig/src/pl/plperl/sql/plperl.sql postgresql-14.3/src/pl/plperl/sql/plperl.sql
--- postgresql-14.3.orig/src/pl/plperl/sql/plperl.sql	2022-05-10 00:14:45.000000000 +0300
+++ postgresql-14.3/src/pl/plperl/sql/plperl.sql	2022-05-29 13:49:36.280946055 +0300
@@ -470,7 +470,7 @@ DO $do$ use strict; my $name = "foo"; my
 
 -- check that we can "use warnings" (in this case to turn a warn into an error)
 -- yields "ERROR:  Useless use of sort in scalar context."
-DO $do$ use warnings FATAL => qw(void) ; my @y; my $x = sort @y; 1; $do$ LANGUAGE plperl;
+DO $do$ use warnings FATAL => qw(scalar void) ; my @y; my $x = sort @y; 1; $do$ LANGUAGE plperl;
 
 -- make sure functions marked as VOID without an explicit return work
 CREATE OR REPLACE FUNCTION myfuncs() RETURNS void AS $$