Use of uninitialized value $1 in hash element at C:\Users\Jems\Desktop\Perl\test\test2script.plx line 26.
Use of uninitialized value $1 in hash element at C:\Users\Jems\Desktop\Perl\test\test2script.plx line 27.
Use of uninitialized value $1 in hash element at C:\Users\Jems\Desktop\Perl\test\test2script.plx line 28.
####
for ( read_file $uniprot ) {
/(.{6})\s+.+=([^\s]+)/;
push @activline, "$1 | $2 | $activ{$1}\n" if $activ{$1}; #26
push @antioxline, "$1 | $2 | $antiox{$1}\n" if $antiox{$1}; #27
push @toxinline, "$1 | $2 | $toxin{$1}\n" if $toxin{$1};#28
##
##
Q197F8 ORFNames=IIV3-002R
Q197F7 ORFNames=IIV3-003L
Q6GZX2 ORFNames=FV3-003R
Q6GZX1 ORFNames=FV3-004R
Q197F5 ORFNames=IIV3-005L
Q6GZX0 ORFNames=FV3-005R ;PF02393
Q91G88 ORFNames=IIV6-006L ;PF12299;PF04383
Q6GZW9 ORFNames=FV3-006R