pugs> my @nums = 1, 2, 4, 5, 0, 8;
pugs> grep { $_ }, 10 >>*<< @nums;
(10, 20, 40, 50, 80)