my $aa;
my $bb;
(undef, $aa, $bb) = dir();

##</code><code>##

my ($aa, $bb);
(undef, $aa, $bb) = dir();

##</code><code>##

(undef, my $aa, my $bb) = dir();

##</code><code>##

(undef, my ($aa, $bb)) = dir();

##</code><code>##

my ($aa, $bb) = ( dir() )[1, 2];

##</code><code>##

my (undef, $aa, $bb) = dir();