Checker:
{
  my %seen;

  sub Checker
  {
    my $value = shift;
    if (defined($seen{$value}))
    {
      return $value;
    }
    else
    {
      $seen{$value} = 1;
      return;
    }
  }
}