sub write_log
{
    my( $id, @values ) = @_; # pick parameters

    # ...
    print  LOG '-'x60, "\n$values[0]\n" if $id == 1;
    printf LOG @values if $id != 1;
    print  LOG "\n"    if $id == 3;
    # ...
} # write_log