How to check file exists is case insensitive

Question

I want to check if a file exist in Perl. This can be done using (-e $filename). But this is case sensitive. How can I check for case insensitive. I have to use only core package to achieve this.

Answer 1

Stolen from here.

(grep {/$file/i} <$dir/*>) or die "$file not exist in $dir\n";