#!/usr/bin/perl
use strict;
use warnings;

my $input = shift;
for my $file (glob '*') {
    open my $IN, '<', $file or die $!;
    while (<$IN>) {
        if (/^$input/i) {
            print "$file\n";
            last;
        }
    }
}