#!/usr/bin/perl

use File::Find;

File::Find::find(
  {
    wanted => sub {
      return unless -f;
      my $s = -s _;
      return if $min < $s && @z > 10;
      push @z, [ $File::Find::name, $s ];
      @z = sort { $b->[1] <=> $a->[1] } @z;
      pop @z if @z > 10;
      $min = $z[-1]->[1];
      }
  },
  shift || '.'
);

for (@z) {
  print $_->[0], " ", $_->[1], "\n";
}