my %seen = ();
my @uniq;
foreach my $array (@result) {                                 
        foreach my $item (@{$array}) {                        
                push(@uniq, $item) unless $seen{$item}++;      
        }
}
@uniq = sort keys %seen;
print "@uniq\n";