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