my @allFilesnDirs = glob '/*';

my @allDirs = grep -d, @allFilesnDirs;

my @allDirsSortByDateTime = sort{ -M $a <=> -M $b } @allDirs;

my @newest20 = @allDirsSortedByDateTime[ 0..19 ];