sub pick_one { $_[rand(@_)] }

while (<>) {
   chomp;
   print(pick_one(split(/,/)), "\n");
}