fix Perl lexical warnings

Author: yaswant

.github/linters/.python-black

@@ -42,7 +42,7 @@ jobs:
           VALIDATE_PYTHON_ISORT: false
           VALIDATE_PYTHON_MYPY: false
           VALIDATE_PYTHON_PYINK: false
-          VALIDATE_PYTHON_RUFF: false
+          VALIDATE_PYTHON_PYLINT: false
           VALIDATE_SHELL_SHFMT: false
           VALIDATE_YAML_PRETTIER: false
           VALIDATE_YAML: false

.github/linters/.ruff.toml

@@ -1010,13 +1010,13 @@ sub run_checks {
             }
 
             # read in data from file to $data, then
-            my $io_array = new IO::ScalarArray \@file_lines;
+            my $io_array = IO::ScalarArray->new(\@file_lines);
             my $mimetype = mimetype($io_array);
 
             # if we can't detect a mime type, try some tricks to aid detection
             if ( $mimetype =~ /text\/plain/sxm ) {
                 my @mime_file_lines = grep !/^\s*\#/sxm, @file_lines;
-                $io_array = new IO::ScalarArray \@mime_file_lines;
+                $io_array = IO::ScalarArray->new(\@mime_file_lines);
                 $mimetype = mimetype($io_array);
             }