perl -E 'for(1..20) { when([18..23]) { say } }'