my @sDir = sort { -s "$dir/$a" <=> -s "$dir/$b" } readdir $D1;