sub ma_funkce
{
  my @pole = @_;
  print join ", ", @pole, "\n" if $DEBUG;

  while (my ($a, $b) = splice(@pole, 0, 2))
  {
    last unless defined $b;

    print $a, " <=> ", $b, "\n" if $DEBUG;
    if ($a < $b)
    {
      print "Pole není uspořádané\n";
      return;
    }
  }

  print "Pole je po dvojicích uspořádané\n";
}

sub ma_podminka
{
  my $cislo = shift @_;
  my $soucet = 0;

  $soucet += $_ foreach ($cislo =~ /./g);

  return 1 if ($soucet % 11 == 0);
  return 0;
}

sub info
{
  my $projekt = shift @_;
  my %org = @_;

  print "Kontaktní osoba za projekt $projekt je ",
        $org{jmeno}, " ", $org{prijmeni}, ":\n",
	$org{email}, "\n\n";
}

my @vzdalenosti = (1..40);


%vysledky_test;
$vysledky_test{83082} = 56;
$vysledky_test{464244} = 34;
$vysledky_test{106059} = 50;
$vysledky_test{413815} = 2;
$vysledky_test{517096} = 71;
$vysledky_test{513893} = 25;
$vysledky_test{445005} = 33;
$vysledky_test{504475} = 32;
$vysledky_test{751731} = 23;
$vysledky_test{771939} = 34;
$vysledky_test{412499} = 96;
$vysledky_test{167569} = 86;
$vysledky_test{132802} = 93;
$vysledky_test{966021} = 76;
$vysledky_test{650233} = 85;
$vysledky_test{402045} = 52;
$vysledky_test{301820} = 96;
$vysledky_test{731935} = 25;
$vysledky_test{703272} = 15;
$vysledky_test{32945} = 37;
$vysledky_test{337221} = 48;
$vysledky_test{413876} = 8;
$vysledky_test{612903} = 31;
$vysledky_test{100831} = 27;
$vysledky_test{497916} = 98;
$vysledky_test{74691} = 54;
$vysledky_test{169756} = 0;
$vysledky_test{864968} = 67;
$vysledky_test{655024} = 5;
$vysledky_test{495582} = 12;
$vysledky_test{60013} = 9;
$vysledky_test{881859} = 73;
$vysledky_test{518132} = 61;
$vysledky_test{598028} = 97;
$vysledky_test{236153} = 63;
$vysledky_test{477146} = 59;
$vysledky_test{189196} = 96;
$vysledky_test{30281} = 44;
$vysledky_test{848565} = 83;
$vysledky_test{941598} = 62;
$vysledky_test{410206} = 90;
$vysledky_test{626573} = 64;
$vysledky_test{985507} = 94;
$vysledky_test{950850} = 30;
$vysledky_test{109987} = 52;
$vysledky_test{69286} = 54;
$vysledky_test{286248} = 43;
$vysledky_test{33761} = 44;
$vysledky_test{501021} = 100;
$vysledky_test{362624} = 100;
$vysledky_test{215888} = 24;
$vysledky_test{395676} = 26;
$vysledky_test{28936} = 100;
$vysledky_test{660913} = 43;
$vysledky_test{420210} = 9;
$vysledky_test{40617} = 12;
$vysledky_test{935319} = 84;
$vysledky_test{585468} = 44;
$vysledky_test{115067} = 79;
$vysledky_test{930330} = 39;



my @vysledky;
$vysledky[0] = ["angličtina", {
230451 => 82,
893227 => 40,
277746 => 37,
868479 => 58,
976233 => 43,
522885 => 98,
849135 => 20,
768279 => 28,
593361 => 84,
429404 => 58,
503909 => 95,
417460 => 56,
712670 => 15,
860616 => 44,
93780 => 26,
692116 => 0,
488166 => 21,
475494 => 20,
178978 => 31,
932134 => 84,
948831 => 37,
597062 => 56,
226433 => 66,
773285 => 2,
707061 => 38,
882582 => 26,
846971 => 47,
961425 => 92,
990315 => 100,
355388 => 81,
808126 => 54,
195220 => 32,
697909 => 72,
454631 => 6,
810161 => 48,
896363 => 72,
201501 => 43,
2403 => 27,
45088 => 40,
690007 => 91,
905637 => 76,
762078 => 48,
371975 => 49,
293224 => 73,
163869 => 28,
567408 => 74,
536558 => 49,
455542 => 1,
6267 => 32,
838797 => 65,
239128 => 22,
573186 => 21,
275782 => 93,
671369 => 70,
11916 => 15,
607421 => 34,
193745 => 94,
578830 => 48,
805664 => 77,
977429 => 96,
78898 => 82,
407811 => 100,
904789 => 43,
169469 => 93,
929719 => 32,
899287 => 93,
291543 => 49,
906566 => 82,
846359 => 91,
866827 => 86,
861783 => 73,
856804 => 20,
816429 => 98,
985835 => 55,
958439 => 57,
23317 => 37,
217912 => 82,
743641 => 55,
533513 => 24,
155352 => 24,
502859 => 83,
}];

$vysledky[1] = ["čeština", {
305953 => 88,
464527 => 75,
2075 => 92,
494657 => 73,
913837 => 24,
496105 => 45,
323074 => 79,
731815 => 37,
295168 => 101,
227567 => 2,
526830 => 84,
559348 => 58,
443064 => 40,
166333 => 21,
230930 => 30,
195288 => 84,
842100 => 24,
653392 => 48,
158272 => 2,
556136 => 19,
748154 => 69,
67792 => 50,
34940 => 53,
559777 => 0,
400110 => 67,
476071 => 37,
262331 => 35,
766605 => 92,
556424 => 50,
4619 => 23,
192524 => 87,
670530 => 65,
973139 => 72,
194390 => 98,
387655 => 93,
386126 => 93,
569852 => 9,
735107 => 9,
202091 => 18,
568960 => 18,
66251 => 82,
270017 => 14,
390423 => 48,
153266 => 71,
814221 => 36,
412459 => 96,
214819 => 96,
894413 => 46,
399178 => 30,
721978 => 43,
702045 => 33,
}];

$vysledky[2] = ["matematika", {
517986 => 34,
356219 => 15,
153065 => 28,
986829 => 96,
948488 => 87,
286756 => 39,
938857 => 4,
656002 => 65,
606223 => 38,
836607 => 61,
61103 => 17,
246932 => 67,
310227 => 52,
816470 => 36,
541354 => 11,
111351 => 95,
695013 => 36,
502496 => 74,
778911 => 92,
352914 => 87,
812192 => 43,
126447 => 42,
503968 => 13,
151362 => 79,
704076 => 30,
728385 => 9,
885266 => 52,
839366 => 56,
886813 => 94,
890727 => 35,
472454 => 13,
481849 => 11,
923739 => 59,
904716 => 35,
537152 => 51,
5413 => 31,
44049 => 40,
733855 => 63,
291761 => 50,
504622 => 80,
67583 => 9,
733536 => 88,
411332 => 30,
212223 => 74,
733384 => 57,
462129 => 75,
261360 => 13,
762002 => 68,
897901 => 14,
75975 => 65,
243158 => 39,
795814 => 67,
968096 => 29,
739229 => 16,
708500 => 16,
670450 => 83,
365376 => 82,
199211 => 65,
966506 => 4,
5307 => 73,
778203 => 87,
178915 => 76,
8304 => 14,
78492 => 10,
454388 => 53,
520548 => 74,
708757 => 92,
626790 => 16,
808482 => 67,
77422 => 11,
429615 => 21,
434061 => 90,
175360 => 3,
196301 => 49,
144728 => 75,
202951 => 30,
627984 => 52,
258227 => 19,
435483 => 50,
596449 => 57,
395532 => 6,
153111 => 54,
963450 => 13,
8620 => 94,
567433 => 8,
}];

$vysledky[3] = ["informatika", {
11113 => 32,
900997 => 58,
968775 => 45,
367780 => 41,
508312 => 45,
842024 => 19,
381434 => 15,
319640 => 28,
557991 => 29,
942414 => 75,
112798 => 72,
995139 => 79,
379765 => 45,
480681 => 75,
237382 => 44,
489480 => 79,
60450 => 43,
331210 => 30,
764296 => 64,
833309 => 34,
54744 => 17,
229523 => 20,
8249 => 85,
634952 => 44,
173155 => 10,
534256 => 99,
689673 => 78,
876415 => 17,
360545 => 68,
980868 => 24,
7321 => 25,
302024 => 89,
862607 => 66,
286363 => 40,
673696 => 98,
780962 => 34,
827800 => 97,
234835 => 61,
307028 => 49,
873598 => 71,
998689 => 77,
50356 => 47,
633089 => 79,
586363 => 14,
909367 => 91,
446786 => 98,
665919 => 47,
961097 => 25,
924538 => 40,
733319 => 69,
408653 => 44,
712143 => 95,
531075 => 66,
750068 => 66,
643932 => 59,
598109 => 45,
524287 => 51,
209792 => 39,
67943 => 34,
595104 => 27,
118837 => 17,
229843 => 50,
362991 => 18,
224381 => 13,
558193 => 90,
452679 => 18,
800533 => 81,
579710 => 0,
496686 => 82,
173793 => 1,
619952 => 9,
698429 => 3,
284705 => 68,
322683 => 14,
737912 => 27,
925002 => 65,
300244 => 47,
975463 => 76,
308946 => 69,
827067 => 54,
638972 => 61,
317014 => 54,
280023 => 50,
41303 => 20,
800169 => 48,
}];

$vysledky[4] = ["fyzika", {
700479 => 36,
900026 => 15,
765574 => 49,
869411 => 83,
117509 => 76,
407649 => 32,
151725 => 28,
257055 => 90,
776265 => 65,
61126 => 97,
631112 => 73,
268543 => 72,
246660 => 53,
443095 => 17,
319997 => 36,
622806 => 88,
976321 => 60,
659751 => 86,
886004 => 25,
940431 => 22,
442090 => 81,
778434 => 12,
900677 => 94,
970081 => 9,
745439 => 40,
284412 => 13,
371054 => 5,
936062 => 61,
67585 => 83,
669217 => 12,
823602 => 55,
908925 => 67,
510487 => 9,
349759 => 6,
939801 => 98,
328526 => 91,
241444 => 21,
735645 => 35,
149909 => 46,
67764 => 31,
531936 => 93,
411529 => 73,
779901 => 87,
715234 => 78,
235393 => 54,
81982 => 25,
316314 => 73,
76365 => 68,
483958 => 77,
138286 => 88,
104701 => 26,
245092 => 37,
900913 => 50,
449727 => 51,
329632 => 91,
981960 => 86,
423265 => 45,
256365 => 10,
437635 => 65,
549549 => 62,
908124 => 29,
845936 => 22,
259224 => 37,
602436 => 79,
56829 => 26,
34436 => 33,
962120 => -5,
206416 => 34,
832388 => 86,
338122 => 56,
625001 => 37,
570517 => 89,
468656 => 16,
124075 => 30,
659596 => 69,
615376 => 20,
}];

$vysledky[5] = ["OSP", {
367904 => 96,
507472 => 53,
85007 => 7,
187663 => 72,
188181 => 83,
577876 => 21,
345416 => 41,
286291 => 24,
990537 => 90,
633948 => 63,
552795 => 54,
822326 => 96,
323396 => 7,
288819 => 87,
496369 => 82,
886791 => 51,
711923 => 47,
902443 => 28,
157526 => 78,
643194 => 0,
723731 => 79,
625392 => 81,
849611 => 48,
804660 => 42,
961233 => 46,
959933 => 54,
943495 => 33,
220224 => 50,
981774 => 23,
847599 => 64,
659063 => 86,
124894 => 100,
143740 => 89,
484792 => 67,
102946 => 1,
628575 => 10,
30161 => 70,
166645 => 8,
589265 => 1,
445724 => 98,
410904 => 31,
464211 => 49,
292867 => 99,
700595 => 31,
670362 => 59,
951210 => 100,
453460 => 47,
882219 => 79,
249615 => 18,
513913 => 78,
674255 => 67,
668728 => 88,
930380 => 63,
1424 => 26,
340174 => 53,
392450 => 69,
722605 => 82,
603444 => 33,
818381 => 51,
375136 => 1,
708403 => 93,
878799 => 28,
}];