foreach $dice (@dicearray) {
      if ( $dice eq $result1) {
              print "$dice\n";
              last;
       }
}