my $index = sprintf("%i",rand(scalar(@array)));
print $array[$index];