Shuffle shuffle

Somewhere near ActivePerl I got lost in: