for my $test (@test)
{
   push (@redundant, $test) unless grep { $test eq $_ } @redundant;
}