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