sub foo
{
    .....

    return @foo;
}

my $num_foo = foo( @args );