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