my $ticker=['http://perlmonks.org/index.pl?node_id=30175&xmlstyle=rss', "http://rss.news.yahoo.com/rss/science"]->[rand 2]; #### my $ticker=('http://perlmonks.org/index.pl?node_id=30175&xmlstyle=rss', "http://rss.news.yahoo.com/rss/science")[rand 2]; #### my $ticker=(qw(http://perlmonks.org/index.pl?node_id=30175&xmlstyle=rss http://rss.news.yahoo.com/rss/science))[rand 2]; #### my $ticker=qw(http://perlmonks.org/index.pl?node_id=30175&xmlstyle=rss http://rss.news.yahoo.com/rss/science)[rand 2];