apple
apple,banana,cherry
banana,cherry
apple,cherry
banana
cherry

##</code><code>##

@sections = split( ',', $_ );
print "CHOSEN:   ", $sections[ int( rand(@sections) ) ], "\n";