my $l_level = 0;
foreach (@achievement){
      my ($level) = /(\d+)$/;
      @results = () if ($level < $l_level);

      push (@results,$_);
      print "Result = @results\n";
      $l_level = $level;
}