@arr = (1,2,13,40,5,6,7,100,34,);
print $arr[int rand(@arr)]."\n";