#!/usr/bin/perl -w
use DBI;

$db="weekly";
$host="localhost";
$user="administrator";
$password="mapleleaf";

#connect to MySQL database
my $dbh = DBI->connect ("DBI:mysql:database=$db:host=$host", $user, $password);

    my $data = ( "SELECT value from quest_globals where name like 'halloween_ratter_%' order by CAST(`value` AS SIGNED)");
    my $sth = $dbh->prepare($data);
    $sth->execute() or die $dbh->errstr;

    while(my $ref = $sth->fetchrow_arrayref) {
        push @used_values, $ref->[0];
    }
    $dbh->disconnect();

        @all_values = (0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40);

    %used_values = map {$_, 1} @used_values;
    @free_values = grep {!$used_values {$_}} @all_values;
    $random_value = join("", @free_values[ map { rand @free_values } ( 1 .. 1 ) ]);

    print "$random_value \n";