my $matches = grep { /^\Q$storeline|\E/ } @file;

if ($matches > 1)
{
     duped_ids($storeline);
}
elsif (!$matches)
{
     no_match($storeline);
}
return;