#open INFILE, '<', 'outfile.txt' or die "Could not open 'outfile.txt':  $!\n";
#my @seq_info = <INFILE>;
#close INFILE;

my @seq_info = <DATA>;
print $seq_info[int rand ($#seq_info)];


__DATA__
seq_1    1    33    gene
seq_1    1    20    exon
seq_1    21    27    exon
seq_1    28    33    exon
seq_2    1    80    gene
seq_2    1    80    exon
seq_3    1    55    gene
seq_3    1    30    exon
seq_3    31    50    exon