my %HASH_DEREF = %$HASH_REF;
for(...){
    my $random_number = ...;
    1 if exists $HASH_DEREF{$random_number};
}