@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;