That's brilliant! I love the idea, and love how it's done. Here is the same thing, with some additional obfuscation in the same spirit:

s;;Just another Perl hacker,;;sub u{pop^q q q}$|--;sub _{rand q}}};for
my$i(0..24){push@_,sub{[((_()>.99)?\&u:sub{pop})->((/./gs)[$i]),$i+_()
*1.3]}}{for$i(1..500){my$_;{print$_->[alarm]for@{[["\r"],(sort{$a->[1]
<=>$b->[-1]}map{;$_->$_}@_)]}}select$_->[2]=>$_->[3]=>$_->[4]=>&_*.2}}
[download]