Perl code for bioinformatics