@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;
[download]

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