return if $s < $min && @z == 10;

##</code><code>##

File::Find::find( sub {
  return unless -f;
  @z = sort @z, sprintf( "%32d:", -s ) . $File::Find::name;
  shift @z if @z > 10;
}, $dir );

print "$_\n" for @z;