du|perl -lpe 'push @_, [split]}{print "@$_" for sort{$b->[0]<=>$a->[0]}@_'|less