#!/usr/bin/perl
use strict;
use warnings;

use feature 'say';

sub foo
{
        my $count = 0;
        return (
                sub
                {
                        return $count++;
                },
                sub
                {
                        return $count++;
                }
        );
}

my ($a, $b) = foo;
say $a->();
say $b->();
say $a->();