use File::Slurper qw( read_text );
use Sort::Key     qw( rikeysort );

print
   rikeysort { ( /(\d+)%/ )[0] }
      split /^(?=>>> )/m,
         read_text( 'try3.txt' );