#!/usr/bin/perl
# w3.14.pl  using rand

srand;
@numb= (first,second,third,fourth,fifth,sixth,seventh,eighth,ninth,tenth);

$index = rand(10);

print "index is $index; number is $numb[$index]\n";


