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

##</code><code>##

Warning: Use of "-s" without parentheses is ambiguous at script.pl line 7.
Unterminated <> operator at script.pl line 7.

##</code><code>##

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

##</code><code>##

my @smaller_than_1000 = grep { -s < 1000 } @ARGV;