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