Help for this page
%seen = (); foreach $item (@srcs) { push(@uniq, $item) unless $see +n{$item}++; } print "@uniq\n";
my %count; foreach $1 ( @srcs ) { ... } my @srcs = sort keys %count;