##
Warning: Use of "-s" without parentheses is ambiguous at script.pl line 7.
Unterminated <> operator at script.pl line 7.
##
##
#!/usr/bin/perl -l
use strict;
use warnings;
@ARGV = map{glob} @ARGV;
my @selection = grep { (-s) < 1000 } @ARGV;
print for @selection;
##
##
my @smaller_than_1000 = grep { -s < 1000 } @ARGV;