$var = "value"; print($main::var eq "value" ? "true" : "false", "\n"); # true #### our $var = "value"; print($main::var eq "value" ? "true" : "false", "\n"); # true #### package Test; $var = "value"; print($Test::var eq "value" ? "true" : "false", "\n"); # true #### our $var; package Test; $var = "value"; print($Test::var eq "value" ? "true" : "false", "\n"); # false