Select Code to Download

sub collect (&@) { collect( $_[0]->() || return @_[1 .. $#_] ) }

my @results = collect { $sth->fetchrow_hashref };

sub collect (&) { ($_[0]->() || return), &collect; }

my @results = collect { $sth->fetchrow_hashref };