$ perl -MO=Deparse,-p -e 'our $foo => 1;'
(our($foo), '???');