Print file names matching the given argument (exactly, no wild-cards) while ignoring case

nocase-file-matches.pl

#!/usr/bin/env perl

## look for files in case-insensitive manner

use strict;
use warnings;
use feature 'say';
use File::Glob ":glob";

my $filename = shift or die "Missing filename";

sub nocase_file_matches {
    my $name = shift;
    my $lc_name = lc $name;
    grep {lc eq $lc_name} bsd_glob("$lc_name*", GLOB_NOCASE);
}

say for nocase_file_matches($filename);