http://www.perlmonks.org?node_id=288031

@a=qw(a h a c k i n g 7323 14188 9872 5552 17985 12496 5422 7576); for(0..7){for$i(0..$a[8+$_]){$a[$_]++;}} $_=join($*,@a[0..7],$/);s|z| |g; print;

Coworked with liz
Upd: 3dan made a nice and obfu-er japh which I quite like!