#!/usr/bin/perl -l
use strict;
use warnings;
@ARGV = map{glob} @ARGV;
my @selection =  grep { -s < 1000 } @ARGV;
print for @selection;