@ARGV = glob '*palindromes.csv';
while (my $line = <>) {
    # Process the line...
}