my $name = 'aramis.dat';

...

    if (lc eq $name){