Help for this page
#!/usr/bin/perl -w use strict; ... } } }
%seen = (); @uniq = (); ... $seen{$item} = 1; push (@uniq, $item); }