#!/usr/bin/perl
use warnings;
use strict;

our $var;
$var = 42;

{   package My;

    our $var;
    *var = \$main::var;
    print $var, "\n";
    $var = 84;
}

print $var, "\n";