#!perl

use strict; use warnings;

my @data;
{
    local $/ = "\n\n";
    @data = <DATA>;
}

my @sorted = sort @data;
print @sorted;

__DATA__
>ENSP00000314624
GCACAATGGTAGAGGCAGATCATCC

>ENSP00000347089
ATGGATTGCTGTGCCTCTCGAGGCT

>ENSP00000301587
TGACCCACTTCCGTTACTTGCTGCG