%seen;
@unique = grep {! $seen{$_}++} @found;