The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

package MyFoo;

use strict;

sub return_foo
{
    my $arg = shift;
    return [$arg, "foo"];
}

1;