my Perl code for bioinformatics