Select Code to Download

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'