my $num = 7;
our $str = 'Hello';

##</code><code>##

use vars qw/ $str /;
$str = 'Hello';