foreach my $bar (@{$objects}) {
    my $foo = $bar->object;
    
    ....
    
    next unless $foo->validate;
    
    $bar->apply;
    
    ....
}