use strict;
# while I would like to do this:
#
# our
# (
# $x = 1;
# $y = 2;
# );
#
# it seems that I must do:

use ($x, $y);
$x = 1;
$y = 2;

# or this:

our $x = 3;
our $y = 4;

# before I can do:

$x = 5;
$y = 6;