The result is 3333

# Begin
use strict;

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

our $ourroutineresult = sub {our $ourroutineresult = $var1 + $var2;};
print &$ourroutineresult;
our $ourroutineresult = sub {my $ourroutineresult = $var1 + $var2;};
print &$ourroutineresult;

my $myroutineresult = sub {our $myroutineresult = $var1 + $var2;};
print &$myroutineresult;
my $myroutineresult = sub {my $myroutineresult = $var1 + $var2;};
print &$myroutineresult;

# End
[download]