sub foo
{
    my ($start, $num) = @_;

    my $_foo;
    *_foo = sub {
        # Do stuff here
    };

    my @return = $_foo->($start, $num);

    return @return;
}