use warnings;
use strict;

my @small_files = grep( (-s) < 10000, @ARGV);
my @output = map s/(.*)/    $1\n/, @small_files;
print @output;