foreach my $peptide_id (sort { 
                ($a =~ /(\d*)_FFF(\d*)_(\d*)/)[0] <=>
                ($b =~ /(\d*)_FFF(\d*)_(\d*)/)[0]}