package SimpleExample;

sub method_foo {
    my $self = shift;
    # ... bla bla bla ...
    my $arg = 42;
    my $intermediate_result = helper_function($arg);
    # ... bla bla bla ...
}

# ...

sub helper_function {
    my ($arg) = @_;
    # ... bla bla bla ...
}