Select Code to Download

Use of uninitialized value in list assignment at C:\Users\Jems\Desktop
+\Perl\test\test2script.plx line 20.
Use of uninitialized value in list assignment at C:\Users\Jems\Desktop
+\Perl\test\test2script.plx line 22.
Use of uninitialized value in list assignment at C:\Users\Jems\Desktop
+\Perl\test\test2script.plx line 26.
Use of uninitialized value in list assignment at C:\Users\Jems\Desktop
+\Perl\test\test2script.plx line 27.
Use of uninitialized value in list assignment at C:\Users\Jems\Desktop
+\Perl\test\test2script.plx line 28.

#!/usr/bin/perl
use Modern::Perl;
use File::Slurp qw/read_file write_file/;
...
write_file $activout, @activline;
write_file $antioxout, @antioxline;
write_file $toxinout, @toxinline;