my @array = map { $action } readdir $DIRHANDLE;