#!/usr/bin/perl
 
@names = ( "david", "roy", "leigh", "remi", "ryan", "adam sweeny", "adam myers", "terry", "joe", "alexandra" ); 

@times =( 0, 0, 0, 0, 0, 0, 0, 0, 0, 0); 

print "How many times "; 

$tries = <STDIN>; 

for ($i = 0; $i < $tries; $i++) {

  $index = int(rand(10000)); 
  $index = $index % ($#names + 1); 
  print $names[$index], "\n"; 
  $times[$index] += 1; 

  print @times, "\n"; 

} 

for ($i = 0; $i <= $#names; $i = $i + 1) {
  print $names[$i], " has been selected ", $times[$i], " times.\n"; 
}