my $in = result( 3 );
print "my \$in: $in \t \$out: \$out\n";

sub result
{  our $out = shift;
   return( 2 ** $out );
}