use strict;for(q)Just another Perl hacker)){$|^=@_=map{sub{[sub{$^N^(
pop&&q q q||qq qq)if/\G(.)/g}->((*0=sub{rand})->()<1e-2)||q$,$,$!+++&
0**-.2]}}/./mg=>$<;for(;;){my$_;{print+map{$_->[0]}@{[[qq]\xD]],sort{
$a->[1]<=>$b->[~0]}map{$_->$_}@_=>]}}select$_->[0],$,,$,,&0**5;die:}}