DB<83> $loop = sub {2,4..5} DB<84> say for &$loop 2 4 5 DB<85>