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