my @dirs = map { my( $name, $type ) = @$_; $type eq 'd' ? $name : () } parse_dir(`ls -la`);