my @result;
push @result, do { ... CODE ... } for (@input);