Help for this page
use strict; use warnings; # you left this out ... my @unique = keys %seen; print @unique;
perl -le '$seen{$_}++ while <>; print keys %seen;'
perl -lE'$s{$_}++for<>;say keys%s'