for my $filename (@repos){ if ($input eq read_file($filename)){ print "File $filename matches\n"; exit; } } print "No match";