#!/usr/bin/perl
my ($found, @values, @match);

open (DB, "<random_master.txt") or die "Unable to open.";
$found = 0;
LINE: while (<DB>) {
(/^#/) and next LINE;
(/^\s*$/) and next LINE;
chomp;
@values = &split_decode($_);

NUMBER:
$found = 0;
$b = 0;
@array=(1..10);
range 1 to 9 random number
$random = $array[rand @array];
$b = "$random";

if ($values[$num] eq $b) {
push @match,$_;
$found++;
print "no more numbers available \n";
goto NUMBER ;
} # end of if

} # end of while

close DB;
goto NUMBER if $values[$num] eq $b;


# If no matching record found, save number in both files
if ($found < 1) {
open(USER, ">>random_user.txt") or die "can't open USER \n";
print USER "$b\n";
close (USER);
# append to master file
open(MASTER, ">>random_master.txt") or die "can't open MASTER \n";
print MASTER "$b\n";
close (MASTER);
print "\n";
print $b;
print "\n";

exit;
} # end of if

print "\n";
print "\n";

sub split_decode {
# --------------------------------------------------------
# Takes one line of the database as input and returns an
# array of all the values. It replaces special mark up that
# join_encode makes such as replacing the '``' symbol with a
# newline and the '~~' symbol with a database delimeter.
$db_delim = '|';

my ($input) = shift;
my (@array) = split (/\Q$db_delim\E/o, $input, $#db_cols+1);
foreach (@array) {
s/~~/$db_delim/g; # Retrieve Delimiter..
s/``/\n/g; # Change '' back to newlines..
}
return @array;
}