$_ = <<'__DERP__';
apple
apple,banana,cherry
banana,cherry
apple,cherry
banana
cherry
__DERP__

print "Say ", ( m!([^,]+)!g )[ scalar rand( tr!,!! ) ], "\n";
__END__
Say banana