my %patterns;
if (!($patterns{"$line, $match, $link"}))      # if not yet in the hash
{
   print $line, $match, $link, "\n";           # print it
   $patterns{"$line, $match, $link"} = 1;      # ... and add it to the hash
}