9 sub cek(){
 10         my $a = round($range.rand);
 11         my $b = round($range.rand);
 12         while ($a!=$b){
...blablabla...
 18                 }
 19         say $percentage;
 20         }