my @array;
while (my $new=whatever You::Like) {
    push @array, $new if is($new)->good;
}