#!/usr/local/bin/perl
$|=1;

srand(time);


$foo[$i]  = int((rand(100000)/1000) + 1); #  from    1 - 93 total

for ($i = 1; $i <= 10; $i++)
{
    $foo[$i]  = int((rand(100000)/1000) + 1); #  from    1 - 93 total
    print "Foo: $foo[$i]\n";

}