Perl scripts to construct Genetic Networks