This returns:

22
33
[download]

# Begin
use strict;

our ( $var1 ) = ( 10 );
my ( $var2 ) = ( 1 );

our $ourthing = &{ sub { $var1 = $var1 + 10; $var2 = $var2 + 1; return
+ $var1 + $var2;}}();
print $ourthing . "\n";

my $mything = &{ sub { $var1 = $var1 + 10; $var2 = $var2 + 1; return $
+var1 + $var2;}}();
print $mything . "\n";

# End
[download]