sub report_row {
    my $object = shift;
    $object->op1();
    $object->op2(); # op2 is very slow
    $object->op3();
}

report_row($_) for ( @objects );