#!/usr/bin/perl
srand;
print "List of strings: "; @b = <STDIN>;
print "Answer: $b[rand(@b)]";