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