my $name = 'aramis.DAT';

...

    if (/$names/i){


##</code><code>##

    if (/$names/i){

##</code><code>##

    if (/\A\Q$name\E\z/i){

##</code><code>##

my $name = 'aramis.dat';

...

    if (lc eq $name){