Variables can be declared as many times as you like...

use strict;
our $foo = 123;
our $foo;
our $foo;
our $foo;
our $foo;
print(our $foo, "\n");
[download]

Also, strict refs don't force you to declare a variable...

use strict "refs";
$foo = 123;      # ok
print "$foo\n";  # still ok
[download]

... it is strict vars that forces you to declare variables.

Variables can be declared as many times as you like...

True only for global variables, and even then, not without warnings. Change your 'our' to 'my' and your program no longer works. You are creating new variables with the same name. Warnings inform you that the new variable masks an earlier declaration.
Bill

Variables can be declared as many times as you like...

True only for global variables, and even then, not without warnings. Change your 'our' to 'my' and your program no longer works. You are creating new variables with the same name. Warnings inform you that the new variable masks an earlier declaration.

I surely understand what you meant to say and agree with what you intended to say, Bill, but lexical variables can indeed be declared as many times as you like, provided they are not declarred in the same lexical scope. For example, the following code declares the same lexical variable four times without any error or warning:

use strict;
use warnings;

my $var = 1;
{
    my $var = 2;
    print $var, "\n",
}
print "$var \n";
foreach my $var (1..5) {
    print $var, "\n";
}
print double(7);
sub double {my $var = shift; return 2 * $var;}
[download]

and happily prints:

$ perl scope.pl
2
1
1
2
3
4
5
14
[download]

Which does not mean at all that I recommend doing that. It can be done, and is useful sometimes, but we should avoid leading to obfuscation.