Perl script for bioinformatics