sub pick
{
  my $aref = shift;
  return $aref->[int(rand(scalar(@$aref)))];
  
}