Report question

Question: What does "select((select(s),$|=1)[0])" do in Perl?