22 33 #### # 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