....
....
for (....)
{
push @keys,$key;
}
my (@elements) = split ';',$line;
if ((grep { $elements[0] eq '$_' }@keys))
{
print "found";
}