Help for this page
sub award_score { #awards one of three scores to a tupel of ... } return $result; }
my $result_x= award_score($best_x,$block1,$position1); ... if ($result_x eq $result_y) { ... }