Select Code to Download

Odd number of elements in hash assignment at ./1.pl line 61.
Use of uninitialized value in list assignment at ./1.pl line 61.
...
Use of uninitialized value in join or string at ./1.pl line 83, <VAR> 
+line 7.
Use of uninitialized value in join or string at ./1.pl line 83, <VAR> 
+line 7.
Use of uninitialized value within %variants_geno in pattern match (m//
+) at ./1.pl line 100, <VAR> line 7.

undef %variants_hash;

%variants_hash = ( undef => );

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,