sub function_called { my $calls = 0; return { return ++$callS } }