our $rcListHash = sub
    {
      my %seen = ();
      my @uniq = ();
      foreach my $item (@data)
    {
      push @uniq, $item unless $seen{$item} ++;
    }

    print OUTPUT @uniq; # Instead of return @uniq;
    };