foreach my $elem ( @agent )
    {
    next if $seen{ $elem }++;
    push @agent_unique, $elem;
    }