Refactoring Loops to Collection Pipelines
martinfowler.com
martinfowler.com
sub twitter_handles {
my ( $authors, $company ) = @_;
grep defined,
map $_->twitter_handle,
grep $_->company eq $company, @$authors;
}
This free book goes into the same kind of topic, only much more deep: http://hop.perl.plover.com/Am I missing some subtle difference?