use Data::Dumper;

    # enable monitoring
    my $rc = foo(1, 2, 3);
    # disable monitoring

    sub foo {
        my ($one, $two, $three) = @_;
        my ($i, $j);
        # manipulate $i & $j...
        return $j;
    }