in reply to 1111111111

What a coincidence!

print take(10, $ones), "\n";

the lowliest monk