pugs> my @nums = 1, 2, 4, 5, 0, 8; pugs> grep { $_ }, 10 >>*<< @nums; (10, 20, 40, 50, 80) #### pugs> <1 2 3> »+« <0 1 0> (1.0, 3.0, 3.0) #### pugs> [+] <1 2 3> 6.0
## pugs> <1 2 3> »+« <0 1 0> (1.0, 3.0, 3.0) ##
## pugs> [+] <1 2 3> 6.0