sub do_some_task {
    my ($arg1, $arg2, $arg3) = @_;

  SUBTASK1: {
        my $some_var = ...
        ...
        ...
        ...
    }

    ...

  SUBTASK2: {
        ...
        ...
        ...
        ...
        ...
        ...
    }

    ...
    ...
}