#!/usr/bin/perl -w
use strict;
use vars qw/$abc @def %ghi/;
our($jkl, @mno, %pqr);
my($stu, @vwx, %y_and_z);
sub qux {}
open(FOO,$0) or die $!;
opendir(DIR, '.') or die $!;

##</code><code>##

#!/usr/bin/perl -w
use strict;

use vars '$foo';
our(@foo);       # second use of *foo

$main::bar = 42;
%main::bar = (a => 1);       # second use of *bar

our($FOO, @DIR);
open(FOO,$0) or die $!;      # second use of *FOO
opendir(DIR, '.') or die $!; # second use of *DIR

sub blah {}
our($blah); # second use of *blah