Select Code to Download

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) {
  ...
}