foreach $Y (@dependantFiles) { my $lcY = lc($Y); foreach $X (@namedFiles) { if (lc(substr($X, -length($Y))) eq $lcY) { print "Found it\n" last; } } }