use Data::Dumper;
my @pal_files = glob '*palindromes.csv';
print Dumper(\@pal_files);


##</code><code>##

for my $file (@pal_files) {
    open my $IN, '<', $file or die "$file: $!\n";
    while (my $line = <$IN>) {
        # Process the line...
    }
}


##</code><code>##

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


##</code><code>##

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,