This may help you

use strict;
use warnings;

my %rangeFile; ## hash
my %geneomeFile;

## From the Range Data File
open my $IN2, "RangeFile.txt" or die $!
while(<$IN1>){
    chomp($_);
    $rangeFile{$_} =  1;
}
close($IN1);

## From Genome Data 
open my $IN2, "GenomeFile.txt" or die $!
while(<$IN2>){
    chomp($_);
        my @line = split('\t', $_); ## considering if genome data is t
+ab-del file
    $genomeFile{$_} =  1;
}
close($IN2);

## Randomly Choosing Name from Genome Data
foreach (rand keys %hash){
#### Code for step 3 ###
}
[download]

Btw, I didnt understan your step 3.